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PREFACE 



SYMPL Version 1.4, which is a systems programming 
language, operates under control of the following 
operating systems: 

NOS 1 for the CONTROL DATA CYBER 170 Series, 
CYBER 70 Models 71, 72, 73, 74, and 6000 Series 
Computer Systems 

NOS/BE 1 for the CDC® CYBER 170 Series, 
CYBER 70 Models 71, 72, 73, 74 and 6000 Series 
Computer Systems 

SCOPE 2 for the CONTROL DATA® CYBER 170 
Model 176, CYBER 70 Model 76, and 7600 Computer 
Systems 



This reference manual presents the semantics and rules 
for writing programs in the SYMPL language. It includes 
sufficient information to prepare, compile, and execute 
such programs. An appendix presents the syntax of the 
language in metalinguistic form. 



The reader of this manual is assumed to have knowledge 
of the operating system and computer system under which 
SYMPL will be used. 



Other publications of interest are listed below. 



Publication 
CYBER Interactive Debug Version 1 Reference Manual 
NOS Version 1 Operating System Reference Manual, Volume 1 of 2 
NOS Version 1 Operating System Reference Manual, Volume 2 of 2 
NOS/BE Version 1 Operating System Reference Manual 
SCOPE Version 2 Reference Manual 



Publication Number 
60481400 
60435400 
60445300 
60493800 
60342600 



CDC manuals can be ordered from Control Data Corporation, Literature and Distribution Services, 
308 North Dale Street, St. Paul, Minnesota 55103. 

This product is intended for use only as described in this 
document. Control Data cannot be responsible for the proper 
functioning of undescribed features or parameters. 
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LANGUAGE ELEMENTS 



The SYMPL compiler is designed for use by system 
programmers writing compilers and system software. 
Consequently, SYMPL omits many facilities typically 
I found in high-level languages, particularly features 
intended for scientific and commercial applications 
programming. At the same time, SYMPL places minimal 
restrictions on allowable optimizations. 

SYMPL is a procedure-oriented language similar to 
JOVIAL, which was derived from ALGOL-58 (the 1958 
version of the International Algorithmic Language, as 
described in the December 1958 issue of the 
Communications of the ACM). 

SYMPL is a readable and concise programming language 

I that uses self-explanatory English words and the familiar 

notations of algebra and logic. In addition, SYMPL has no 

I format restrictions: comments can be intermixed among 
the symbols of a program to document it. 

Coding conventions for SYMPL are less restrictive than 
for most languages. The source program is considered to 
be a stream of characters; card or line boundaries are 
ignored. Significant columns of a card image are 1 
through 72; columns beyond 72 are not interpreted. For 
purposes of source information, the compiler assumes 
column 72 of one card image is adjacent to column 1 of 
the next card. All SYMPL names, constants, operators, or 
symbols can be broken across card images without any 
special continuation marks. 



SYMPL CHARACTER SET 

The SYMPL character set has 55 characters: 

A through Z and $ 

through 9 

*/.+ -=<>()[]"#., :; blank 

Some of the characters are not represented on the keys of 
all keypunches or terminals and they might not appear on 
all line printers. The characters shown above are from 
the American Standard Character Set for Information 
Interchange (ASCII) and are used throughout the body of 
this manual. For instance, the characters " and # appear 
in the ASCII character set, but appendix A shows that =£ 
and = might appear with another character set. A 
programmer should use whatever is appropriate to achieve 
a display code value of 64 to represent the constant 
delimiter " and a display code value of 60 to represent the 
comment delimiter #. 

Characters that are not part of the SYMPL character set 
can be used in a program only within a character constant 
or a comment. 

SYMPL characters classified as marks serve as delimiting 
characters. In the correct circumstances, any of the 
marks can delimit an identifier. The character blank (also 
known as a space) is an element within the set of marks. 
Consequently, its use is significant. 



Whenever one blank is required as a delimiter, any number 
of blanks is allowed. Whenever a nonblank delimiter is 
required, any number of surrounding blanks is allowed. 

Table 1-1 shows the SYMPL marks and their uses. 

TABLE 1-1. SYMPL MARKS 



Mark 


Use 


+ 


Arithmetic operator for addition. 


- 


Arithmetic operator for subtraction. 


* 


Arithmetic operator for multiplica- 
tion. 


/ 


Arithmetic operator for division. 


** 


Arithmetic operator for exponenti- 
ation. 


- 


Assignment operator for replacing 
value of left side with value of 
right side. 


== 


Assignment operator for exchange of 
values on right and left sides. 


9 


Separator, for expressions, list 
elements, etc. 


• 


Decimal point in real constant. 




Delimit labels; separate bounds 
of array dimension; separate status 
indicator from value. 


» 


Terminate statements and declara- 
tions. 


blank 


Delimit identifiers; introduce 
readability. 


( and ) 


Delimit argument lists; group 
expression elements; denote call- 
by- value argument; etc. 


[ and ] 


Delimit subscripts and array bounds. 


<and > 


Delimit arguments for intrinsic 
functions B, C, and P, and system- 
independent array specifications. 


ii 


Delimit character constants, status 
constant values, octal constant 
values, and hexadecimal constant 
values. 


# 


Delimit both limits of comment and 
DEF body. 
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COMMENTS 

A comment is an arbitrary string of characters enclosed 
within pound signs; as in: 

#string# 

The only characters that cannot appear within a comment 
are the semicolon and the pound sign. A semicolon 
terminates the comment and causes a diagnostic. 

Comments can appear between or within SYMPL 
statements. Anyplace a blank can appear, a comment can 
appear, with the following exceptions. A comment cannot 
appear: 

• Within a comment 

• After the name in a DEF declaration since the body 
of DEF is also delimited by #. 



IDENTIFIERS 

An identifier is a string of 1 through 12 letters, digits, or 
$ beginning with a letter ($ is considered to be a letter). 
The two types of identifiers are reserved words and 
programmer-defined words. 

Reserved words have predefined meanings to the SYMPL 
compiler. They can be used only in the contexts described 
in this manual. Table 1-2 lists all of the reserved words 
and the roles they play in SYMPL programs; 
context-defined descriptors alsD appear in this table 
although they are not reserved words. 

Programmer-defined identifiers name entities, such as 
constants or variables, within the program. They cannot 
be the same as a reserved word. 

The remainder of this manual uses the term identifier to 
indicate a programmer-defined entity. Reserved words 
are indicated in text in capital letters. 



CONSTANTS 

SYMPL has five types of constants. Each is a sequence of 
characters which defines its own value. The constant 
types are: Boolean, character, integer, real, and status. 



For example: 

"TAPE01" "*ERROR*" 
"QUOTES" "A" " " 

INTEGER CONSTANTS 

Integer constants represent numeric values. The three 
types of integer constants are: decimal, octal, and 
hexadecimal. 

During execution, the maximum allowable value for an 
integer constant depends on the use of the constant. The 
value of an integer to be converted to a real value, and 
the value of an integer operand and result of integer 
multiplication and division, must be expressed in 47 bits. 
High-order bits are lost when a larger value exists, but no 
diagnostic informs the programmer of such a condition. 

Each type of integer constant is specified in a different 
way. Also, each appears in storage in a format 
appropriate to its type, as described with ITEM 
declarations for data types. 

Decimal Integer Constant 

A decimal constant is a string of decimal digits through 
9 with an optional preceding plus or minus sign. The 
string can contain 1 through 18 digits; it cannot contain 
blanks. The absolute value for a decimal integer must be 
expressed in 59 bits. 

For example: 

+15 -1 4096 

Hexadecimal Constant 

A hexadecimal constant represents 4 bits in storage for 
each hexadecimal digit in the constant. The absolute 
value for a hexadecimal constant must be expressed in 59 
bits. If 60 significant bits are written, the leftmost bit is 
used as a sign in one's complement; and if the constant is 
stored in a signed integer format of n bits, the nth bit 
from the right is used as the sign bit. 

A hexadecimal constant has the format: 



BOOLEAN CONSTANTS 

Boolean constants represent the two elements of Boolean 
algebra. They are specified by the reserved words TRUE 
and FALSE. Numerically, FALSE is zero and TRUE is 
nonzero. 



CHARACTER CONSTANTS 

Character constants represent alphanumeric data, 
character constant has the format: 



"string" 
string 



String of 1 through 240 characters of the 
computer character set shown in 
appendix A. If the character " is to appear 
in the string, it must be specified by two 
consecutive " marks. 



X"string" 
string 



String of 1 through 15 hexadecimal digits 
through 9 and A through F. Embedded 
blanks are ignored. 



For example: 
X"7FFF" 



X"9" 



Octal Constant 

An octal constant represents 3 bits in storage for each 

octal digit in the constant. If 60 significant bits are 

written, the leftmost bit is used as a sign in one's 

complement; and if the constant is stored in a signed 
integer format of n bits, the nth bit from the right is 
used as the sign bit. 



1-2 
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TABLE 1-2. SYMPL RESERVED WORDS AND DESCRIPTORS 



Word or 
Descriptor 


Used To 


Word or 
Descriptor 


Used To 


A f 


Denote aligned allocation for 
system-independent array. 


I' 


Declare signed integer data type. 






IF 


Introduce conditional IF statement. 


ABS 


Intrinsic function that returns 








an absolute value. 


ITEM 


Declare variable data item. 


AND 


Boolean operator. 


LABEL 


Declare label. 


ARRAY 


Declare dimensioned entity. 


LAN 


Arithmetic operator. 


B* 


Denote Boolean data type. Also, 
intrinsic function that accesses 


LIM 


Arithmetic operator. 




bits of a data item. 


LNO 


Unary arithmetic operator. 


BASED 


Declare an array that has a 


LOC 


Intrinsic function that returns 




structure but no storage. 




address. 


BEGIN 


With END, delimit a compound 
statement. 


LOR 


Arithmetic operator. 






LQ 


Relational operator. 


C f 


Denote character data type. Also, 








intrinsic function that accesses 


LQV 


Arithmetic operator. 




characters of a data item. 










LS 


Relational operator. 


COMMON 


Declare data to reside in loader 








common blocks. 


LXR 


Arithmetic operator. 


CONTROL 


Introduce a compiler directive 


NOT 


Boolean operator. 


DEF 


Declare a macro. 


NQ 


Relational operator. 


DO 


Introduce clause of FOR statement. 


0* 


Prefix octal constant. 


ELSE 


Mark statement to be executed on 


OR 


Boolean operator. 




the FALSE evaluation of the 


P f 






Boolean expression in an IF 


Denote parallel array storage. 




statement. 




Also, intrinsic function that 
allows reference to based array 


END 


With BEGIN, delimit a compound 
statement. 




pointer. 






PRGM 


Introduce program, rather than a 


ENTRY 


Declare alternate entry point for 
procedure or function. 




subprogram, module. 






PROC 


Introduce a procedure subprogram. 


EQ 


Relational operator. 










Rt 


Denote real data type. 


FALSE 


Boolean constant having the integer 








value 0. 


RETURN 


Exit from subprogram or program. 


FOR ' 


Introduce FOR statement. 


st 


Denote status data type. Also, 
denote serial array storage. 


FPRC 


Declare formal procedure name 








used as a parameter or declare a 


STATUS 


Introduce status declaration. 




formal function name that is used 








as a parameter. 


STEP 


Introduce clause of FOR statement. 


FUNC 


Introduce a function subprogram or 
declare a formal function name 


STOP 


Return control to operating system. 




that is used as a parameter. 


SWITCH 


Declare a vector of labels. 


GOTO 


Introduce unconditional branch in 
program flow. 


TERM 


Terminate module compilation. 






TEST 


Change flow of FOR statement 


GQ 


Relational operator. 




execution. 


GR 


Relational operator. 


THEN 


Introduce clause of IF statement. 
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TABLE 1-2. SYMPL RESERVED WORDS AND DESCRIPTORS (Contd) 



Word or 
Descriptor 


Used To 


Word or 
Descriptor 


Used To 


TRUE 


Boolean constant having the 
value 1. 


XDEF 


Generate loader entry point. 






XREF 


Generate loader external reference. 


U + 


Denote unsigned integer data type 








or unaligned allocation for system- 


$BEGIN 


With SEND, delimit statements to 




independent array. 




be compiled at compiler call 
parameter option. 


UNTIL 


Introduce clause of FOR statement. 










$END 


With $BEGIN, delimit statements to 


WHILE 


Introduce clause of FOR statement. 




be compiled at compiler call 


X f 






parameter option. 


Prefix hexadecimal constant. 






Context descriptor that is not a reserved word. 



An octal constant has the format: 
0"string" 
string 



String of 1 through 20 octal digits 
through 7. Embedded blanks are ignored. 



For example: 

0"777" 0"33" 

REAL CONSTANTS 

Real constants represent numeric values in standard 
single-precision normalized floating-point format. A real 
constant is a string of decimal digits that includes a 
decimal point and can include a leading sign. Optionally, 
it can include an exponent representing multiplication by 
a power of 10. The exponent is specified as either of the 
semantically equivalent letters D or E followed by an 
optional plus or minus sign and a decimal integer. A real 
constant cannot be represented by a string containing an 
embedded blank. 



For example: 
3.14E2 



-24. 



37.E-3 



The magnitude limits of a real constant are approximately 
10-293 t io+322 w ith up to 15 digits of precision. A 
diagnostic message is given when a number falls outside of 
the hardware limits. 



STATUS FUNCTIONS AND CONSTANTS 

Status functions and status constants represent small 
integer values the compiler has associated with the 
identifiers in a status list. They can be used anywhere 
integer constants can be used. 

Both status constants and status functions require a 
preceding STATUS declaration to define a status list and 
identifiers associated with the status list, as described in 
section 2. 



A status function has the format: 

stlisfst value" 

Use of a status function accesses the integer associated 
with stvalue in status list stlist. 

A status constant is a shorthand method of writing a 
status function. The format of a status constant is: 

S"stvalue" 

Since a status constant does not indicate which status list 
it belongs to, it must be used only in a context where the 
status constant is directly attributable to a particular 
status list. Such contexts are: 

• Presetting a scalar or array item of type S. 

• Joining a status variable by an operator such as: 

F OPCODE NE S"NOP"...OPCODE=S"NOP" 

Use of single-character status list names that are the 
same as the context descriptors O, S, and X can cause 
conflicts. For example: 

STATUS X A,B,Cj 

The use of X"A" in the program is interpreted as the 
hexadecimal representation of the decimal value 10, and 
not the status item. 



OPERATORS 

Operators are used in arithmetic expressions and Boolean 
expressions. The operators are of type arithmetic, 
relational, and logical. 

Arithmetic operators are of two types: 

• Numeric operators perform arithmetic operations to 
yield a numeric result. 

• Masking operators perform bit-by-bit operations to 
yield a numeric result. 



1-4 
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Relational operators work with arithmetic operands to 
produce a Boolean result. 

Logical operators work with Boolean values and yield a 
Boolean result. 

Table 1-3 shows the SYMPL symbols (reserved words) and 
their meanings for the different types of operators. 
Tables 1-4 and 1-5 show truth tables for the logical and 
masking operators. 

TABLE 1-3. SYMPL OPERATORS 



TABLE 1-4. TRUTH TABLE FOR 
•LOGICAL OPERATORS 



Symbol 



/ 
** 



LNO 
LAN 
LOR 
LXR 
LIM 
LQV 



EQ 
GR 
GQ 
LQ 
LS 
NQ 



NOT 
AND 
OR 



Meaning 



Numeric Operators 



Addition; unary plus. 
Subtraction; unary minus. 
Multiplication. 
Division. 
Exponentiation. 



Masking Operators 



Logical NOT (bit-by-bit NOT). 

Logical AND (bit-by-bit AND), 

Logical OR (bit-by-bit OR). 

Logical exclusive OR. 

Logical imply. 

Logical equivalent. 



Relational Operators 



.Is equal to. 

Is greater than. 

Is greater than or equal to. 

Is less than or equal to. 

Is less than. 

Is not equal to. 



Logical Operators 



Negation. 

Conjunction. 

Union. 



EXPRESSIONS 

An expression is a rule for computing a value. During 
evaluation of an expression the values of the operands in 
the expression are combined according to the language 
rules to form a single value. 



bl 
b2 


F F T T 
F T F T 


NOT bl 
bl AND b2 
bl OR b2 


T T F F 
F F F T 
F T T T 



TABLE 1-5. TRUTH TABLE FOR 
MASKING OPERATORS 



a 
b 


11 
10 1 


LNO a 
a LAN b 
a LOR b 
a LXR b 
a LIM b 
a LQV b 


110 
1 
111 
110 
110 1 
10 1 



Each of the following is an expression: 

• Constant 

• Scalar 

• Subscripted array item 

• Function reference, except the P function 



Part-word array items appearing in an expression are 
lengthened to 60 bits. They are right-justified and 
zero-filled, except for character items, which are 
left-justified and blank-filled, and signed integer items, 
which are right-justified and sign-extended. 



Furthermore, any of the above entities combined with a 
unary operator or binary operator also produces an 
expression. 



The two types of expressions are: 

• Arithmetic expressions that yield numeric values. 

• Boolean expressions that yield Boolean values of 
TRUE or FALSE. 



Boolean operands and Boolean expressions differ in nature 
from arithmetic operands and expressions; they cannot be 
involved with numeric arithmetic expressions. No 
numeric arithmetic operator applies to any Boolean 
operand and vice versa. 



Evaluation of an expression begins with evaluation of 
operators with higher precedence and continues with 
evaluation of operators with lower precedence; otherwise, 
evaluation proceeds from left to right. A different order 
of evaluation can be specified by the programmer through 
the use of parentheses: expressions within parentheses 
are evaluated before the result is combined with other 
operands. 
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ARITHMETIC EXPRESSIONS 

Arithmetic expressions yield a numeric value. The two 
types of arithmetic expressions are: 

• Numeric arithmetic expressions that involve operands 
of any type except Boolean. Operands are treated as 
a single value in these expressions. 

• Logical masking arithmetic expressions that involve 
operands of any type except Boolean. Operands are 
treated on a bit-by-bit level in these expressions. 

For both types of expressions operators have implicit 
ranking, with evaluation of the expression preceeding 
from operators with higher precedence to operators with 
lower precedence. 

Arithmetic operators are listed in order of highest to 
lowest precedence: 



() 



LNO 

LAN 

LOR 

LXR 

LIM 

LQV 



Parentheses, beginning with 
innermost pair 

Exponentiation 

Multiplication and division, 
from left to right 

Unary plus and minus 

Addition and subtraction, from 
left to right 

Logical NOT (complement) 

Logical AND 

Logical inclusive OR 

Logical exclusive OR 

Logical imply 

Logical equivalence 



SYMPL has no implicit multiplication in which algebraic 
multiplication can be indicated by X(Y) or (X)(Y). 



Numeric Arithmetic Expressions 

A numeric arithmetic expression contains only numeric 
operands and numeric arithmetic operators. The numeric 
operators are: **, *, /, +, and -. The numeric operands 
include constants, scalars, subscripted array items, and 
function references; the type of any numeric operand 
must not be Boolean. 

When operands of different types are used in a single 
expression, the compiler converts the type of one operand 
such that the common type of both operands is the higher 
type. An exception is exponentiation, in which neither 
operand is converted. The three operand types that exist 
for conversion purposes are as follows, listed in order 
from highest to lowest: 

Real 

Integer 

Character 



For example, given integer item I and real item R, the 
expression (I + R) is evaluated in floating point arithmetic 
after the value of I is converted to type real. Similarly, 
the expression ((I + 2) * R) is computed by: 

• Adding I and 2 in integer mode 

• Converting the result to floating-point format 

• Multiplying the result by R in floating-point format. 

Character operands are lowest in the conversion 
hierarchy. Conversion of character to integer is affected 
by the number of characters declared in the character 
operand. (The length of a scalar or array item is specified 
in its declaration; the length of a character constant is 
the number of characters in the string; the length of a C 
function is the number of characters indicated in the 
function.) If bit 59 of a 10 or more character operand is 
set, the converted integer is a negative value, and only 
the first 10 characters are used in an expression 
evaluation. For operands less than 10 characters, the 
characters are shifted right to normal integer position and 
zero-filled. 

Character-to-real conversion occurs by conversion to 
integer followed by conversion of the integer to a 
floating-point format. 

Conversion from integer to real occurs by floating the 
integer, as provided by hardware instructions. The 
resulting real value is expressed in single precision format. 

Additional rules for specific operators are: 

• Division by zero is undefined. 

• Division of an integer by an integer results in 
truncation of any remainder: 11/3=3, for example. 

Rules for conversion of operands are shown in table 1-6. 

Figure 1-1 presents additional examples of the evaluation 
of expressions. 



Masking Expressions 

A masking expression contains operands of any type and 
the logical masking operators LNO, LAN, LOR, LXR, LIM, 
and LQV. 

The logical operators perform bit manipulations. As with 
numeric arithmetic operators, a hierarchy of operators 
exists, as shown in the list above. 

No conversion of operand types occurs with masking 
operators. Character data is restricted to one word, 
however. Any character operand less than 10 characters 
is left-justified and blank-filled before being used in a 
masking expression. Any character operand greater than 
10 characters is truncated to 10. 



BOOLEAN EXPRESSIONS 

A Boolean expression yields a Boolean value TRUE or 
FALSE. The two types of expressions that yield Boolean 
results are: 

• Relational expressions that compare values of 
arithmetic expressions. 
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A. 


LN0(A+B*(C-D*E-(-F+G)/3)) is functionally equiva- 




lent to: 




D * E - 11 




C - 11 - 12 




-F - 13 




13 + G - 14 




14/3 - 15 




12-15 - 16 




B * 16 - 17 




A + 17 - 18 




LtMO 18 - Result 


B. 


A**B/C+D*E*F-G is functionally equivalent to: 




A ** B - 11 




11 / C - 12 




D * E - 13 




13 * F - 14 




12 + 14 - 15 




15 - G - Result 


C. 


A**B/(C+D)*(E*F-G) is functionally equivalent to: 




A ** B - 11 




C + D - 12 




11/12 - 13 




E * F -.14 




14 - G - 15 




13 * 15 - Result 


D. 


A*(B+((C/D)-E)) is functionally equivalent to: 




C / D - 11 




11 - E - 12 




B + 12 •- 13 




A * 13 - Result 


E. 


(A*(SIN(X)+1.)-Z)/(C*(D-(E+F))) is equivalent to: 




SIN(X) - 11 




11 + 1. - 12 




A * 12 - 13 




13 - Z -14 




E + F - 15 




D - 15 - 16 




C * 16 - 17 




14/17 -- Result 



Figure 1-1. Examples of Arithmetic 
Expression Evaluation 



• Logical expressions that 
operands and operators. 



Relational Expressions 



involve only Boolean 



A relational expression compares the value of two 
arithmetic expressions or character operands. A relation 
is TRUE if the operands satisfy the relation specified by 
the operator; otherwise, the relation is FALSE. 



expression is evaluated, with the arithmetic evaluation 
following the hierarchy of operators and order of operands 
described above. Character operands are left-justified 
and blank-filled before being evaluated. Two character 
operands are compared algebraically by their display code | 
values, and trailing blanks are not significant. 

The relational operators are: 



EQ 


Equal to 


GR 


Greater than 


LS 


Less than 


GQ 


Greater than or equal to 


LQ 


Less than or equal to 


NQ 


Not equal to 



Evaluation is as follows: If bits are all zero, the result is 
FALSE; otherwise the result is TRUE. The exception is 
that -0 and +0 in a full word are considered equal and 
FALSE. (SYMPL does not follow the conventions of 
FORTRAN which uses the sign bit for testing TRUE and 
FALSE). 



There is no precedence for relational operators. 
Evaluation is left to right. 



Logical Expressions 

A logical expression contains only Boolean operators and 
Boolean operands. The result of expression evaluation is 
TRUE or FALSE. 



The Boolean operands include scalars of type B, functions 
of type B, and relational expressions. 



The Boolean operators are listed in order of highest to 
lowest precedence in evaluation: 

NOT Logical negation 

AND Logical conjunction 

OR Logical disjunction 

Assuming LI and L2 are logical expressions, the logical 
operators are defined as: 

NOT LI FALSE only if LI is TRUE 

LI AND L2 TRUE only if LI and L2 both are 

TRUE 



The operands for a relational expression must be 
arithmetic expressions or character operands. Any 
arithmetic expression is evaluated before the relational 



LI OR L2 FALSE only if LI and L2 both are 

FALSE. 
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TABLE 1-6. OPERAND CONVERSION DURING EXPONENTIATION 



Base/Exponent 


Integer 


Real 


Character 


Integer 


No conversion 
Result: integer. 


Base converted to real, 
exponent converted to 
integer. Result: real. 


Exponent not converted but 
interpreted as integer. 
Result: integer. 


Real 


No conversion. 
Result: real 


Exponent converted to 
integer. Result: real 


Exponent converted to integer. 
Result: real. 


Character 


Base not con- 
verted, but 
interpreted as 
integer. 
Result: integer. 


Base converted to real. 
Exponent converted to 
integer. Result: real. 


Both operands converted to 
integer. Result: integer. 



The result of a Boolean expression is always or 1, even if 
an operand is a Boolean array item which includes several 
smaller items. Such array items are tested for zero 
versus nonzero, for example: 



ARRAY; 

ITEM Bl B(0,0,2), 
B2 B(0,0,1); 
Setting B1=TRUE does not set B2 to TRUE. 



Evaluation of a Boolean expression terminates as soon as 
evaluation of any part of the expression determines the 
result. For example, in the logical expression LI AND L2 
AND L3 evaluation stops as soon as LI is found to be 
FALSE, since the expression is FALSE once any FALSE 
value is discovered. 

The expression A OR B AND NOT C is evaluated as if it 
were written: 

(A OR (B AND (NOT C))) 
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DATA DECLARATIONS 



Data in a SYMPL program is either a scalar or an array 
item. 

I Scalars are declared with ITEM declarations. Scalars 
occupy at least one full word of storage. 

I Arrays are declared with ARRAY or BASED ARRAY 
declarations followed by simple or compound ITEM 
declarations describing items in the array. An item in an 
array need not occupy a full word of storage. 

Both scalar and array items are named entities that 
represent values that are preset when a program is loaded 
or gain values by arithmetic replacement. An exception is 
a filler item in a system-independent array, which has no 
name and whose value is therefore unavailable to the user. 

Each data item must be declared before it is referenced. 



ITEM DECLARATION 

An ITEM declaration defines a scalar that occupies a full 
word in storage or, in the case of character data, that 
occupies as many words as necessary to hold the number 
of characters specified. Six types of data can be defined, 
each having a particular storage format associated with it: 



Type 
Boolean 

Character 



Format 

Boolean data has 
TRUE or FALSE. 



Integer 



Unsigned integer 



Real 



Status 



Character data is represented 
in display code, with 6 bits for 
each character and 10 char- 
acters per word. Characters 
are left-justified with blank 
fill. 

Integer data is represented in 
binary integer format in which 
the leftmost bit represents the 
sign bit and the remaining bits 
represent the value. 

Unsigned integer data is 
represented in binary integer 
format with all 60 bits being 
used for the value. 

Real data is represented in 
single-precision floating-point 
format. Restrictions on the 
maximum values of operands 
in expressions and results of 
expression evaluation are 
those common to the hardware. 

Status data is represented by 
unsigned integer format. It 
differs from unsigned integer 
format only in its use in a 
program and the way it can 
assume values. See STATUS 
declaration below. 



The format of an ITEM declaration is: 

ITEM name type=preset, name type=preset, . . . ; 

name Identifier of 1 through 12 letters, digits, 

or $ that does not begin with a digit and 
does not duplicate the name of a 
reserved word. Must be unique within a 
procedure. 



type 



Type of item: 




B 


Boolean 


C(lgth) 


. Character, with lgth 
specifying number of 
characters. Length 
cannot exceed 240. 


I 


Signed integer; default 


U 


Unsigned integer 


R 


Real 



S:stlist Status, with stlist 

specifying the name 
of the status list | 
from which the item 
the value is to assume values. 

When an item is assigned a value, the 
value is converted to the type specified 
by the ITEM declaration. 



preset Optional; value to which item is to be 

initialized at load time, expressed as a 
constant. Any specified constant is set 
in the item without regard for whether 
the constant matches the item type. 
When preset is omitted, the equal sign 
is also omitted. 



The characters B, C, I, U, R, and S are not reserved 
words; they can be used elsewhere in a program as 
variable names. 



Examples of ITEM declarations are: 

• Define item X as type real: 

ITEM X R; 

• Define item Y as integer, and define Z as a character 
item having 10 characters: 

ITEM Y,Z C(10); 

• Define NBIT as integer with a value of 6: 

ITEM NBIT =6; or ITEM NBIT 1=6; 
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Define ERR as characters ERROR NUMB in one word 
and ER left-justified in next word: 

ITEM ERR C(12) = "ERROR NUMBER"; 

Define OFF as Boolean value FALSE: 

ITEM OFF B = FALSE; 

Define status item BIRD with the same value as 
CANARY has in status list ORDER: 

ITEM BIRD S:ORDER=S"CANARY"; 



STATUS DECLARATION 

A STATUS declaration defines a list of items that the 
compiler is to associate with small unsigned integer 
values. The purpose of the declaration is to allow 
mnemonic references to certain variables of small integer 
value. The compiler assigns the value to the first 
identifier of the list, the value 1 to the second identifier 
of the list, and so forth. 

The format of a STATUS declaration is: 

STATUS stlist identifier, identifier, . . . ; 

stlist Name by which list is to be known. 

Identifier of 1 through 12 letters, 
digits, or $ that does not begin with 
a digit and does not duplicate the 
name of a reserved word. Status 
list names S, X, and O cause 
ambiguities. 

identifier Identifier to be associated with 

status list stlist. Need not be 
unique with a program since the 
status list with which it is 
associated can always be 
determined from the context. Can 
duplicate reserved word. An 
identifier cannot be duplicated in 
the list. 



Identifiers in the status list are called status values. They 
are used in the form of a status function, a status 
constant, or a status switch, as described elsewhere. 

Examples of STATUS declarations and references to items 
so declared are: 

• Preset VAL to the status list value of TERM: 

STATUS WORDS BEGIN, END, TERM; 
ITEM VAL S:WORDS = S"TERM"; 

This causes VAL to be set to the unsigned integer 2. 

• Set X to the status list value of BLUE: 

STATUS COLOR RED, ORG, YEL, BLUE; 
X = COLOR"BLUE" 

This causes X to be set to 3. 

• Test LETTER for the display code value equivalent 
to Q: 

STATUS ALPHA A,B, . . .X,Y,Z; 
IF LETTER EQ S"Q" THEN. . . 



SWITCH DECLARATION 



A SWITCH declaration defines a list of label names that 
the compiler is to associate with small unsigned integer 
values. The purpose of the declaration is to allow a 
multiple branch statement. 

Two types of SWITCH declaration formats exist. The first 
is a straightforward list of label names; the second 
combines STATUS capabilities into the SWITCH 
declaration. 

When a switch is referenced in a GOTO statement, the 
value of the switch subscript expression must be within 
the range of defined switches. If the program is compiled 
with the C parameter (range checking) on the compiler 
call, an execution-time check is made to determine 
whether the value is within the range of valid values. 
When range checking is selected, any reference to an out 
of range switch value produces a run-time diagnostic. | 



ORDINARY SWITCH 

In the simpler form of a switch, the compiler assigns a 
value to each label named. The first label in the list is 
assigned a value 0, the second label is assigned the value 
1, and so forth. 

The format of a SWITCH declaration specifying only label 
names is: 

SWITCH swname label, label, . . . ; 

swname Name by which switch is known. 

Identifier of 1 through 12 letters, 
digits, or $ that does not begin with 
a digit and does not duplicate a 
reserved word. 

label Label name to be associated with 

swname. If the switch is never 
accessed by a particular value a 
label name can be omitted for that 
value. A comma is still required to 
mark the position of the label, 
unless it is the last label in the 
list. A label name in a switch list 
cannot duplicate a switch name. 

An example of the declaration and use of an ordinary 
switch AAA that transfers control to label LAB3 when the 
value of I is 2 is: 

SWITCH AAA LABI, LAB2, LAB3; 
GOTO AAA[l]; 



The D option on the SYMPL control statement or the 
CONTROL PACK statement can be used to pack switches 
two to a word, thus saving space at the expense of 
execution time. 



STATUS SWITCH 

A status switch references a previously declared STATUS 
declaration. The SWITCH declaration associates the 
switch name with a status list; each label name in the 
switch list is then paired with one of the identifiers from 
the status list as specified by the SWITCH declaration 
parameters. 
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The format of a SWITCH declaration specifying a status 
list is: 

SWITCH swnametstlist labehstvalue, 
label:stvalue, . . . ; 

swname Name by which switch is known. 

Identifier of 1 through 12 letters, 
digits, or $ that does not begin with 
a digit and does not duplicate a 
reserved word. 



stlist 



label 



stvalue 



Name by which status list is known 
as declared by a previous STATUS 
declaration. 

Label name to receive the same 
value as the status value following 
the colon. 

Status value from list stlist to be 
associated with the preceding label 
name. 



SYSTEM-INDEPENDENT ARRAYS 

A system-independent array is one in which the exact 
location of array items and the entry (position) of the 
array are not specified by the user, but are calculated by 
SYMPL. Use of system-independent arrays is 
recommended for new applications because such programs 
are more easily transportable between systems with 
different characteristics. 



A system-independent array is a serial array with the 
attribute INERT (section 5). It differs from a 
system-dependent array in that the location of array 
items relative to each other is undefined unless the user 
explicitly specifies that they are to overlap or be 
contiguous. 



Like system-dependent arrays, system-independent arrays 
must be declared in a declaration containing two parts: 
an array declaration header, followed by item declarations. 



The status values can appear in a switch list in an order 
other than that of their status list. All of the status 
values need not be associated with a label, and the same 
label can be associated with more than one status value. 
A status value, however, can only appear once in a switch 
list. 

An example of a declaration of a status switch 
WHICHONE and its use to transfer control to LABZ when 
the value of the GOTO statement argument is 3 is: 

STATUS COLOR RED, ORG, YEL, GRN; 
SWITCH WHICHONE:COLOR LABX:YEL, 
LABZ:GRN; 



GOTO WHICHONE[COLOR"GRN"]; 



ARRAY DECLARATION 

An ARRAY declaration defines a rectangular arrangement 
of elements. The elements are called entries; each entry 
is composed of a number of items. The items in an entry 
have the same format for each entry in an array. The 
number of words in the array must be less than 65535. 

In storage an array entry occupies an integral number of 
whole words. Items within the entry can be as small as 
one bit or as large as 24 words of character data; only 
type character items can cross the boundary of a word in 
the array. 

An array is declared by an array declaration header 
followed by an ITEM declaration. If no items exist in the 
entry, a null declaration (blank followed by a semicolon) 
should follow the ARRAY declaration. If more than one 
item exists in the entry, the ITEM declaration should be a 
compound statement. 

An array is either system-dependent or system- 
independent. A system-dependent array is one in which 
the exact location (word number and bit number) is 
specified by the user. A system-independent array is one 
in which the user specifies only the length of each item, 
and whether or not it overlaps other items. 
System-independent arrays are recommended for all new 
applications. 



Array Declaration Header 

The format of an array declaration header for a 
system-independent array is: 



ARRAY 
name 



low 



up 



algnt 



name [ low:up,low:up, . . .] algnt; 

Identifier specifying the name of the 
array. It can be omitted unless the 
array appears in a BASED ARRAY, 
XDEF, or XREF declaration, or is used 
as an actual or formal parameter. 

Lower bound of a dimension of the 
array. Maximum absolute value is 
217-1. Can be positive, negative, or 
zero. If low and the following colon are 
omitted, zero is assumed. 

Upper bound of a dimension of the 
array. Can be positive, negative, or 
zero. Must be greater than or equal 
to low. 

Arrangement of items in memory: 

A Aligned. Each item begins at the 
left side of a new word. Character 
items can occupy more than one 
word. This arrangement promotes 
speed of access at the expense of 
memory space. 

U Unaligned. Each item begins at the 
next bit position that enables the 
item to be contained within one 
word. An exception is character 
items, which begin at the next 
character position, and can be split 
across word boundaries. This 
arrangement promotes saving 
memory at the expense of 
execution speed. 

An array can have up to seven dimensions. Each pair of 
bounds in the declaration defines one dimension. If the 
bounds list is omitted, [0:0] is assumed. 
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Array Item Declarations 

The system-independent array declaration header is 
followed by the declarations for the items contained in 
the array. If more than one item declaration is used, they 
should be grouped as a compound bracketed by BEGIN and 
END. The format of the ITEM declaration for 
system-independent arrays is: 

ITEM name type <size,pos>= [preset], 

name type <size,pos>= [preset]. . . ; 



name 



type 



pos 



preset 



Identifier specifying the name of 
the entry item. Must be unique 
within the procedure. If the pos 
parameter is present, the name can 
be omitted, defining a filler item. 



Type of 


array 


item: 


B 




Boolean 


C 




Character 


I 




Signed integer; 
default 


U 




Unsigned integer 


R 




Real 


S:stlist 


Status item 
associated with 
list stlist 



Item length, expressed as an 
unsigned integer constant. Length 
is in characters for character data, 
and in bits for all other data. R 
type items must be 60 bits long. 
Only C type items can cross word 
boundaries; 60 bits is the maximum 
length for all other items. Size 
defaults as shown in table 2-1. 

Indicates the position of the item 
relative to other items in the same 
array. If pos (and the preceding 
comma) are omitted, the position 
of the item relative to other items 
is undefined, except that they will 
not overlap. If pos is an item 
name, the first bit position of the 
current item is the same as the 
first bit position of the named 
item. If pos is a +, the current 
item begins at the next available 
bit position after the last defined 
item. 

Value or set of values to initialize 
the item (or multiple occurrences 
of the same item). See Presetting 
Arrays. 



The pos parameter allows subfields of an item to be 
defined, each with its own name. All the subfield item 
declarations that overlap a given item must be grouped 
together, but they need not occur immediately after the 
declaration for the overlapped item. The first declaration 
in the group names the item being overlapped in the pos 



parameter, and the remaining items use the plus sign to 
indicate the subsequent subfields. Any item with a plus 
sign as the pos parameter must be preceded by an item 
with a non-null pos parameter. Dummy items can be used 
to space over unused subfields. For example, to declare 
an array with one-word entries, each containing two 
20-bit subfields at each end of the word and a dummy 
subfield in the middle: 

ARRAY TABLE[l:100]A; 

BEGIN 

ITEM ALLOFIT U<60>; 

ITEM FIELD1 U<20,ALLOFIT>; 

ITEM DUMMY U<20,+> ; 

ITEM FIELD2 U<20,+> ; 

END 



TABLE 2-1. ARRAY ITEM DESCRIPTOR LIMITS 



Type 


fbit 
Al ignment 


Maximum 
Length 


Default 
Length 


May 
Cross 
Words 


I 

u 

R 
B 
C 
S 


bit 

bit 

bit 

bit 

character 

bit 


60 bits 

60 bits 

60 bits 

60 bits 

240 characters 

60 bits 


60 bits 
60 bits 
60 bits 
1 bit 

1 character 
60 bits 


no 

no 

no 

no 

yes 

no 



A subfield must not be defined to exceed the boundaries 
of the more inclusive field. 

Sub-subfields can be defined, and are subject to the same 
options and restrictions as subfields. The name can be 
omitted from a subfield (an item with a non-null pos 
parameter); such items are called filler items. In the 
preceding example, the item declaration for item DUMMY 
could be replaced by: 

ITEM<20,+>; | 

provided that the item is not referenced in the program. 
The type is the same as that of the field being overlapped. | 

All items in a group of subfield items must be of 
compatible types. They must all fall within the same 
class; the item of which the subfields form a part must 
also be in the same class. The classes are as follows: 

Class 1 Character 

Class 2 Real 

Class 3 Signed integer, unsigned integer, status, 

and Boolean 

Real items are always 60 bits long. If any other length is 
specified, 60 is substituted and a trivial diagnostic is 
issued. 

Some examples of system-independent array declarations 
are shown in figure 2-1. 
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Array declaration 

Array whose entries each occupy one 
60-bit word: 

ARRAY B U; 

BEGIN 

ITEM B1 l<18>; 

ITEM B2 C<7>; 

END 

Array whose entries each occupy 
two 60-bit words: 

ARRAY B A; 

BEGIN 

ITEM B1 l<18>; 

ITEM B2 C<7>; 

END 

Array using a filler item and 
sub-subf ields (Y and Z) : 

ARRAY ABC [1:144] A; 

BEGIN 

ITEM W<18>; 

ITEM <6,W>; 

ITEM X<12,+>; 

ITEM Y<5,X>; 

ITEM Z<7,+>; 

END 



word 



word 
word 1 



Arrangement of items in storage 








18 




59 


B1 


B2 



18 



42 



59 



B1 




B2 





6 8 18 



word ' 



6 11 



59 



w 




filler 


X 




filler 


Y 


Z 





Figure 2-1. System-Independent Array Examples 



The following are examples of invalid declarations: 

• Subfield XC is larger than XA; declaration could be 
rewritten to make XA a subfield of XC: 

ARRAY X [l:100l] U; 
BEGIN 

ITEM XA I<7>; 
ITEM XB B<1>; 
ITEM XC LK8,XA>; 
END 



ITEM W2 
ITEM W3 
END 



I<4>; 
I<7,+>; 



Incompatible type of field and subfield: 

ARRAY Q [1:2] U; 
BEGIN 

ITEM QA U<18>; 
ITEM QB U<6,QA>; 
ITEM QC C<2,+>; 
END 



• Field with plus sign as pos parameter follows field 
with null pos parameter; could be made legal by 
reversing W2 and W3, or making W2 a subfield of W: 

ARRAY XX[l:667,23:29]U; 
BEGIN 

ITEM W I<18>; 

ITEM Wl K6,W>; 



SYSTEM-DEPENDENT ARRAYS 

A system-dependent array is one in which the ,user 
specifies the location of each item in the array entry. 
Both the word and bit positions in which the item begins 
are specified. System-dependent arrays are not 
recommended for new applications. 
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Array Declaration Header 

The format of a system-dependent array declaration 
header is: 

ARRAY name [lowtup, low:up, . . .] alloc (esize); 



Identifier specifying the name of the 
array. It can be omitted unless the 
ARRAY declaration appears in a 
BASED ARRAY, XDEF, or XREF 
declaration, or is used as an actual or 
formal parameter. 

Integer constant indicating lower bound 
of a dimension of the array. Maximum 
absolute value is 217-1. Can be signed 
positive or negative. If low and its 
following colon are omitted, is 
assumed. 



low 



up 



alloc 



Integer constant indicating upper bound 
of a dimension of the array. Maximum 
absolute value is 217-1. Can be signed 
positive or negative. Must be equal to 
or greater than the preceding low with 
which it is paired. 

Allocation of the entries in the array in 
storage. 

P Parallel allocation in which 

the first words of each entry 
are allocated contiguously, 
followed by the second words 
of each entry, and so forth. 

S Serial allocation in which all 

the words of one entry are 
allocated contiguously. 

If alloc is omitted, P is assumed. 

Entry size. Number of words in an 
array entry, expressed as an unsigned 
integer. Esize must be less than 2048 
words. If esize and its enclosing 
parentheses are omitted, 1 is assumed. 



An array can have up to seven dimensions. Each low:up 
pair in the ARRAY declaration defines a dimension of the 
array. (Dimensions specify the coordinates that identify 
an element of the array.) If the bounds list is omitted, 
0:0 is assumed. The declaration ARRAY S(n) declares a 
parallel array named S, not an unnamed serial array. 

Differences between serial and parallel allocation are 
shown in figure 2-2. In this figure, array A has one 
dimension, a three-word entry that occurs five times. 
CHAR[l] is the reference that accesses the second 
occurrence of item CHAR defined to occupy word 1 of the 
entry. A full declaration for this array might be: 

ARRAY A[0:4] S(3); 
BEGIN 

ITEM HDR 1(0,0,60); 
ITEM CHAR C(l,0,10); 
ITEM TRFR C(2,0,10); 
END 

The format of the ITEM declaration of an array is as 
follows. If more than one array item is being declared, all 
declarations should appear between BEGIN and END. The 
declaration is similar, but not identical, to the ITEM 
declaration of scalars. 



ITEM name type (ep,fbit,size)=Tpresetl, 
name type (ep,fbit,size)=[presetT. . 



type 



Identifier specifying the name of 
the entry item, expressed as 1 
through 12 letters, digits, or $ that 
does not begin with a digit and does 
not duplicate the name of a 
reserved word. Must be unique 
within procedure. 

Type of array item: 

B Boolean 

C Character 

I Signed integer; 

default 
U Unsigned integer 

R Real 

S:stlist Status associated 

with list stlist 



ARRAY A[0:4] S(3); 



entry 
entry 1 



entry 4 



word 
word 1 
word 2 


CHAR[0] 


CHAR[1] 


word 
word 1 


CHAR [4] 


word 
word 1 
word 2 





Occurrences of ' 

ITEM CHAR C(1,0,10) 

Would Be Here 



ARRAY A[0:4] P(3); 



( 


entry 


I 


entry 1 


word of < 


entry 2 




entry 3 


CHAR [0] ^ 


entry 4 


CHAR[1] 


• 


CHAR [4] 


( 


entry 




entry 1 


word 2 of / 


entry 2 


) 


entry 3 


{ 


entry 4 



Figure 2-2. Differences in Serial and Parallel Allocation 
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ep Entry position. Word number in 

which the integer or character 
item starts, starting from 0; 
expressed as an unsigned integer 
constant. ep can be less than 
esize; the user is responsible for 
the validity of any results that 
ensue. 

fbit Bit position at which item begins, 

starting on the left and counting 
from through 59; expressed as an 
unsigned integer constant. 

For a character item, fbit is a bit 
number and must be divisible by six. 

size Item length, expressed as an 

unsigned integer constant 

appropriate to the type, as shown 
in table 2-1. Only C type data can 
cross word boundaries. 

R type data must have a size of 60. 

preset For a single occurrence array entry 

item, value to which item is to be 
initialized at load time, expressed 
as a constant. 

For a multiple occurrence array 
entry item, a set of values 
arranged in a list in the same order 
as the allocation order of different 
instances of the items in storage. 

Any constant specified is set in the 
item, aligned appropriately in the 
field, without regard to other fields 
in the word. 

All items are right- justified and 
zero-filled, except character 

items, which are left-justified and 
blank-filled. The constant is not 
converted. No conversion of the 
preset is performed regardless of 
the type of item being preset. 

If the entire field descriptor (ep,fbit,size) is omitted, ep 
and fbit default to and size defaults as shown in 
table 2-1. One parameter within the parentheses is 
assumed to be ep, with fbit=0 and size as in the table; two 
parameters are assumed to be ep and fbit. 

Items can overlap; the user is responsible for the 
consequences if the same field is declared with two 
different types. 



Figure 2-3 shows an example of serial array storage based 
on a declaration of: 

ARRAY SAR[0:10]S(2); 
BEGIN 

ITEM AA(0,0,60); 
ITEM AB(1,0,60); 
END 



entry 
entry 1 

• 
• 

entry 10 








i AA[0] 
\ AB[0] 
/ AA[1] 
\ AB[1] 

/ AA[10] 
\ AB[10] 




a 

a + 1 
a + 2 
a + 3 
a +4 
a + 5 
a + 6 
a + 7 
a + 8 
a + 9 
a + 10 
a + 11 
a + 12 
a + 13 
a + 14 
a + 15 
a + 16 
a + 17 
a + 18 
a + 19 
a + 20 
a + 21 




















: : : ; : ; : : : : : ; : : : : :o:-:ox-:'::':;: : : : : : : ; : 































Figure 2-3. Serial Array Allocation 

Each entry in the array is two words long. The first item 
of the entry is AA; the second item is AB. All array items 
with a value for ep are stored at location SAR+x where 
x is even, while all array items with a 1 value for ep are 
stored at location SAR+x where x is odd. (Shaded areas 
indicate entries with ep=0.) 

If, in figure 2-3, a third item AC (2,0,60) is added, the 
entry is said to be over-addressed, since AC[0] is the 
same location as AA [l]. Such a practice should be used 
cautiously because of optimization considerations 
discussed in appendix C. 

Figure 2-4 shows the same array as figure 2-3 with 
parallel, rather than serial, storage allocation, based on a 
declaration of: 

ARRAY PAR[0:10]P(2); 
BEGIN 

ITEM AA(0,0,60); 
ITEM AB(1,0,60); 
END 



Serial and Parallel Arrays 

When a system-dependent array has only one entry, or its 
entries occupy no more than one word, the distinction 
between serial and parallel arrays is meaningless. For an 
array with more than one entry, or for an array with one 
entry having more than one word, the time required to 
access any given item is affected. The distinction 
becomes critical when array items are declared with word 
positions beyond the entry size. 



Each entry in the array is two words in length, as it is 
with serial allocation. The first item in the entry is AA; 
the second is AB. 

Occurrences of word of the array (item AA) are stored 
contiguously, and occurrences of word 1 (item AB) are 
stored contiguously after those with ep=0. 

If item A A is over-addressed, AA[ll] is the same as 
ABJO]. Such a practice should be avoided because of 
optimization considerations discussed in appendix C. 
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AA[0] / 
AA[1] / 

word of • \ 
each of • I 
entries y 
thru 10 J 

AA[10] \ 




a 

a + 1 
a + 2 
a + 3 
a + 4 
a + 5 
a + 6 
a + 7 
a + 8 
a + 9 
a + 10 
a + 11 
a + 12 
a + 13 
a + 14 
a + 15 
a + 16 
a + 17 
a + 18 
a + 19 
a + 20 
a + 21 












'.''.*. ■:■';.'■•■ i .'•■•■■ '■'<■>■■■■■ 










AB[0] / 
AB[1] / 
• 1 
word 1 of • \\ 
each of • i 
entries \ 
thru 10 J 

AB[10]'\ 































Figure 2-4. Parallel Array Allocation 



Figure 2-5 shows the implications of serial and parallel 
allocation for arrays in which array items occupy more or 
less than a full word in the entry. 

The array illustrated in figure 2-5A is declared by: 



ARRAY NENT 


[0:3] S(4); 


ITEM Al 


1(0,0,15); 


ITEM Bl 


1X0,15,15); 


ITEM CI 


U(0,30,30); 


ITEM Dl 


C(l,0,20); 


ITEM El 


R(3,0,60); 


END 





Notice that in serial allocation all four words of each 
entry are contiguous, but that the occurrence of one item 
is not contiguous with other occurrences of the same item. 

In contrast with figure 2-5A, figure 2-5B shows the same 
four-word entry in parallel allocation. The array entry 
description is the same, but the array header is: 

ARRAY NENT [0:3] P(4); 

Notice that in parallel allocation all four words of each 
entry are not contiguous, but that the occurrence of one 
item Is contiguous with other occurrences of that same 
item. That is, all occurrences of array item Al[n] are 
contiguous. 



For an item that crosses word boundaries in a parallel 
array, the same parallel structure is maintained, as shown 
by array item Dl in figure 2-5B. The first word of array 
item Dl[n] is stored together with all other occurrences 
of the first word of Dl[n], and the second word of array 
item Dl[n] is stored together with all other occurrences 
of the second word of array item Dl[n]. 

The physical split of a multiword item does not affect the 
logical operation of a bead function that specifies 
characters to be extracted from an item split between 
words: C<5,9>F, for example, accesses correctly the 9 
characters beginning with character 5 of item F even 
though the words are not contiguous in memory. 



Parallel and serial arrays offer contrasting advantages. 
Parallel arrays are more efficient when items do not 
exceed one word and the sum of the lengths of the items 
does not exceed the entry size. Serial arrays are more 
efficient for multiword items and for references to items 
that exceed the bounds of the entry. Serial arrays are 
also more efficient if the size of the array is to be 
increased at execution time (which cannot be done 
directly through SYMPL). 



ARRAY REFERENCES 

A particular instance of an array item is known as an item 
reference, which has the form of a subscript enclosed in 
brackets appended to the array item name. For instance: 

ARRAY REF[0:99]; 
ITEM REFITEM; 

To reference the 40th occurrence of REFITEM, which 
in this example is the 40th word of the array, the 
reference is: 

REFITEM [39] 

The subscript for the item reference must be an 
arithmetic expression. If the type of the arithmetic 
expression is other than integer, the result of the 
expression is converted to integer. Only the lower 18 bits 
of the value are used. 

If the array being referenced has more than one 
dimension, the subscript must have as many arithmetic 
expressions as there are array dimensions. For instance: 

ARRAY[0:1,0:2,0:3]; 
ITEM B I; 

All of the fallowing are possible references: 

B [1,1,1] 

B[X + Y,1,Z] 

b[b[i,b[o,o,o],x],b[i,b[x,i,y],y],z] 

If an array entry occurs only once (that is, dimensions are 
specified as [0:0],[l0:10], and so forth), it can be 
referenced without a subscript. 

PRESETTING ARRAYS 

Elements of an array are initialized by an ITEM 
declaration that has a list of values associated with the 
array item name. For instance, an array with one 
dimension is initialized: 

ARRAY SIGMA [2:6]; 

ITEM CHI C(0,54,1)=["A","D","G","K","N"]; 

The resulting structure and values are: 

CHI [2] 

CHI [3] 

CHI [4] 

CHI [5] 

CHI [6] 



K 



N 



The first word of this parallel array is CHI [2]. 
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A. Serial Array Structure 



NENT- 



A1[0] 


B1[0] 


| CI [0] 




D1[0] 


(1st half) 




D1[0] 


(2nd half) 


E1[0] 


A1[1] 


B1[1] 


| CI 11] 




D1[1] 


(1st half) 




D1[1] 


(2nd half) 


E1[1] 


A1[2] 


B1[2] 


j CI [2] 




D1[2] 


(1st half) 




D1[2] 


(2nd half) 


El [2] 


A1[3] 


B1[3] 


| C1[3] 




D1[3] 


(1st half) 




D1[3] 


(2nd half) 


El [3] 



B. Parallel Array Structure 



Array Element 1 



Array Element 3 



Array Element 



Array Element 1 



Array Element 2 



Array Element 3 





A1[0] 


B1[0] 


C1[0] 




NENT — *- 






Aim 


B1[1] 


C1[1] 










A1[2] 


B1[2] 


CI [2] 


^ S / 


\\ V 


A1[3] 


B1[3] 


CI [3] 


\jf / 




D1[0] 


1st half) 


S^ / / 

V7 

\y a 


\\/ 




D1[1] 


1st half) 


\ V 




D1[2] 


1st half) 


\/\ 
A \' 




D1[3] 


1st half) 


n\ 


/y\ 




D1[0] 


2nd half) 


/A N 




D1[1] 


(2nd half) 


/ X 'x 


y \ 




D1[2] 


2nd half) 


-/- — -> 


C — V 




D1[3] 


[2nd half) 


/ 


\ \ 


E1[0] 


/ 


\ \ 
\ 


E1[1] 


\ 
\ 


El [2] 


/ 


\ 
\ 


El [3] 





Array Element 



-^ Array Element 2 



Figure 2-5. Serial and Parallel Arrays with Multiword Items 



The list of constant values for array item elements need 
not specify an initial value for every element. The values 
given are used to set elements starting with the first 
element. Any element that is not to be set is indicated by 
a null value: 



• Null values are indicated by adjacent commas. 



• Trailing null values can be omitted. 



• To initialize the second and fourth element of array 
SIGMA above, for instance: 

ITEM CHI C(0,54,1)=[,"D"„"K"]; 

For entries with more than one item, the preset values are 
specified by the item with which they are associated, not 
the word in memory in which they might appear. The 
programmer specifies the value for each occurrence of an 
item; the compiler constructs words as necessary to 
produce an array with the given specifications. 
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Any item not preset is set to zero if any other item in the 
same word is preset. Otherwise, unpreset items are 
initialized to the current loader default. 

Example: 

ARRAY TENWORD [0:4] S(2); 
BEGIN 

ITEM A 1(0,0,30)= [4, ,3]; 
ITEM B I(0,0,45)=f, 10, , 15]; 
ITEM C C(l,0,5)= "YYYYY'V'XXXXX", 

"VVVVV","QQQQQ" ; 
END 



Resulting structure and values are: 



4 





Y Y Y Y Y 








10 




X X X X X 





3 





V V V V V 








15 






P 




P 


Q Q Q Q Q 






Tenword 



Tenword 1 



Tenword 2 



Tenword 3 



Tenword 4 



P indicates a loader preset. 



Multidimensional arrays are preset using nested brackets. 
Brackets should be nested to the level of the number of 
subscripts. The leftmost subscript varies most rapidly, as 
it does in FORTRAN. 

Basically, the preset list for a declaration is a set of 
constant values, with the same order as the allocation 
order of the elements. This list is presented in sections 
enclosed in square brackets, and nested to a depth of the 
number of dimensions in the array. An N dimensional 
array at the first level of nesting has as many sections as 
the Nth dimension of the array. Each of these sections 
has as many sections as the N-lst dimension, and so forth. 

At the deepest level, each section has as many values as 
the first dimension of the array. Each section at the first 
level contains values for the instances of the array item 
with the same rightmost subscript; the subscript 
associated with each section varying from the lower bound 
at the left to the upper bound at the right. Each section 
of the second level contains values for those instances 
with the same rightmost two subscripts, and so forth. The 
outermost section is appended to the array item 
declaration with an equals sign. 

Repetition of values can be indicated by bracketing a list 
of values with a parentheses and a count. For example: 



A two-dimensional parallel array, for example, is 
initialized by: 

ARRAY OMEGA[0:l„p:2]j 

ITEM MU I(0,0)=Ul,2][3,4][5,6]]; 

This presetting is equivalent to: 

ARRAY OMEGA[0:1,0:2]; 
ITEM MU 1(0,0); 



MU [0,0 
MU [1,0 
"0,1 

1,1 
0,2 

1,2 



MU 
MU 
MU 
MU 



As with single-dimension arrays, not all elements of a 
multidimensional array need to be fnitialized. Elements 
that are not to be initialized can be represented by null 
brackets as well as by brackets containing null values. 
For instance: 



[[[,,2][,1,]][[,,][3,4,5]] [[,,][,,]]] 
is equivalent to 
[[[.,2][,1]][[][3,4,5]]] 



and 



3(2,l)is equivalent to 2,1,2,1,2,1 
2(2(0,2))is equivalent to 0,2,0,2,0,2,0,2 



Repetition of bracketed sections is indicated by placing a 
count outside the bracket. For instance: 

2[[1,3][2(2)]] 

is equivalent to 

[[1,3][2,2]][[1,3][2,2]] 

Only the first 6000 words of an array can have preset 
values. 

If overlapping fields are preset, the last specified preset 
applies to the bits shared by the items. 



ARRAY STORAGE AND ADDRESSING 

Given the array header: 

ARRAY [bjrui.ba^a, . • •] 
alloc(esize); 

the number of entries in the array is: 

(ui-bi+l)(u2-b 2 +l) . . . (u n -b n +l) 

At compilation time, an array is allocated the following 
amount of storage: 

(number of entriesXesize) 

The allocation of an element with respect to the location 
of its array name is affected by whether storage 
allocation is serial or parallel. 

For serial allocation, the location of element sj; 
[ s l>82 » • ■ • » 3 n] ls computed from: 

e i=si-bi 

size=Uj-bj-l 
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address+ep+ej(esize)+e2(sizel+esize) 
+ . . . +e n (size]* 
. . . *size n _]*esize) 

where esize is entry size. 



For parallel allocation, the location of an element is 
computed from: 

address+(ep*size]* 

. . . *size n _i)+ei+(e2*sizei)+ 
• • • (e n * s izel*. . .*size n _i) 

where address is the address of element 
D>l,....b n J 



For a three-dimensional array, the relative location of 
A[i,j,k] with respect to A[b 1)D 2,b3] is given by: 

location (A[i,j,k])= 

location (A[b lj b 2 ,b3])+(x+L(y+M(z») 
(esize) 

where x=i-bj 
y=k-b 2 
z=k-b 3 
L=u^-bx+l 
M=U2-b2+l 



Array items are allocated in column order: that is, the 
leftmost subscript varies most rapidly. 



In a two-dimensional array, memory locations are: 

ARRAY PSI [1:3,0:3] alloc(2); 
BEGIN 

ITEM X(0,0,60) 
ITEM Y(l,0,60) 
END 



For a three-dimensional array, an array declaration 
might be: ; 

ARRAY RHO[0:l,2:4,-5:-4] P(l); 



The resulting structure of array RHO is shown in 
figure 2-6. 




Figure 2-6. Structure of Array RHO 
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BASED ARRAY DECLARATION 

A based array is an array for which the compiler does not 
allocate storage; rather the compiler creates a specific 
pointer variable compiled with an undefined value. All 
references to a based array are compiled in relation to the 
pointer variable. From a logical standpoint, a based array 
provides a template that can be superimposed over any 
area of memory during execution. 



Based arrays can be used when the size or location of an 
array is not known at compile time, if the array might be 
moved during execution, or if the same array definition is 
needed in several locations. 



A program using the based array has the responsibility to 
set the pointer variable through the intrinsic function P. 
The P function and its use with based arrays is described 
in section 4. 



The based array name is declared in a BASED ARRAY 
declaration. The array items are declared as they are for 
normal arrays for which storage is allocated. 
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The format of the BASED ARRAY header is: With two exceptions, references to based arrays are the 

same as references to any other array, with the same 
BASED array-dec; result. The exceptions are: 

or 1. The P function, which requires a based array as its 

argument. 
BASED BEGIN array-dec, array-dec . . . END 

2. Actual parameters; if a based array is an actual 
array-dec Full array declaration including the parameter to a procedure, the pointer variable, not 

ARRAY declaration for a header and a the array name, must be passed as the actual 

simple or compound ITEM declaration parameter, 

for the entry in the array. Array name 
is required; dimensions are optional. Based arrays cannot be preset. 
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EXECUTABLE STATEMENTS 



Statements, as opposed to declarations, are executable. 
They can be grouped into two types depending on their 
function: 



s Value assignment statements cause a value to be 
assigned to a scalar or an array item element. These 
statements are: 

Exchange statement 

Replacement statement 

• Flow-of-control statements control the order of 
statement execution. These statements are: 

GOTO statement 

IF statement 

FOR statement and its associated TEST 
statement 

STOP statement 

RETURN statement 

Procedure call statement 

All executable statements can be labeled. 

LABELS 

A label is an identifier used to locate a statement. 
The format of a statement label is: 
name: 



A given label name can only appear once in a procedure. 
However, the name can be duplicated in a nested 
procedure. If a branch to the name is encountered, the 
choice of which label to branch to is governed by the 
following rules: 

• If a statement labeled with the name has already I 
been encountered in the same procedure or an outer 
procedure, the branch is to that statement. 

• If no statement yet encountered has been labeled | 
with the name, the branch is to the next statement 
labeled with that name at the same level or an outer 
level. 

• If the name appears in a LABEL declaration in a | 
procedure, then the branch is to the next statement 
labeled with that name at the same level or an outer 
level, regardless whether that label has been 
encountered yet or not. 

A LABEL declaration has the format: 

LABEL name, name,. . .; 

name Label that is to be subsequently declared. 
For example: 

• Procedure NAME1 is nested within procedure NAME. 
The compiler links a label LI reference within 
NAME1 to the label #PREV# LI previously 
encountered during compilation. 

PROC NAME; 
BEGIN 
#PREV# LI: . . . 

PROCNAME1; 

BEGIN 

GOTO LI; 



Identifier of 1 through 12 letters, digits, or $ 
that does not begin with a digit and does not 
duplicate another identifier in the 
subprogram or a reserved word. 

No blanks or comments are permitted 
between the last character of the name and 
the terminating colon. 



#INNR# LI: . . . 

END #NAME1# 
END #NAME# 

* The same procedures with a LABEL declaration 
within the nested NAME1 transfers control to LI 
#INNR# when GOTO LI executes: 



Since a labeled statement is itself a statement, two labels 
in sequence are synonymous. 

A label can appear at any point in the program where it is 
legal for a statement to appear. If a declaration or 
subprogram is labeled, the label locates the next 
executable statement. 

The scope of a label is the procedure in which it appears, 
plus any procedures nested within that procedure. 
Grouping of statements into compound statements by 
means of BEGIN and END does not affect the scope of 
a label. 



PROC NAME; 
BEGIN 
#PREV# LI: . . . 

PROC NAME1; 
BEGIN 
LABEL LI; 
GOTO LI; 



#INNR# LI: . . . 

END 
END 
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REPLACEMENT STATEMENT 

The replacement statement assigns a value to a scalar or 
subscripted array item. When the statement executes, the 
value of the expression on the right side replaces the 
current value of the entity on the left side of the 
statement. 

The format of the replacement statement is: 

v = exp; 

v One of the following entities whose value is 

to be replaced: 

Scalar 

Subscripted array item 

P function 

Bead function 

Function name, if statement is within a 
function of the same name 



exp 



Arithmetic or relational expression. 



The value of the right side is adjusted to the size of the 
left side operand. If necessary, integers are truncated on 
the left; character data is truncated on the right. 
Expansion occurs with leading zeros for integers; 
characters are left-justified and blank-filled. 

If one side of the statement is Boolean, the other must 
also be Boolean. No conversions occur to or from Boolean. 

If the left side of a replacement statement is a bead 
function (C or B described in section 4), only the specified 
bits are replaced. The remainder of the referenced item 
is not affected. 

The expression on the right side of the statement is 
converted to the type of the left side, if necessary, before 
the value is assigned to the left side. Conversions occur 
as follows: 

« Integers are converted to character operands by the 
left-justification of the rightmost 6 bits of the 
integer. Remaining positions in the character field 
are blank-filled. 



• Integers are converted to real operands by floating 
them, as provided by hardware instructions. The 
resulting real values are expressed in single-precision 
format. 

• Real values are converted to integers by truncating 
any fractions in the real values. Significance is 
preserved if the integer .can be expressed in 48 bits. 

• Real values are converted to character operands by 
first converting to integer, then converting the 
integers to characters. 

Character operands are converted to integer by 
right- justifying and zero-filling them in a single word. If 
the operand is more than ten characters long, only the 
first ten characters are used. 

Character operands are converted to real by converting 
them to integer and then floating the result. 

Conversion does not occur between integer and unsigned 
integer; they are treated identically. If a 60-bit unsigned 
integer has a 1 in the sign bit, it is treated as a negative 
number; all other unsigned integers are treated as positive 
numbers. 

Table 3-1 summarizes conversions performed by the 
replacment statement. 

Examples of replacement statements: * 

• Assign the value of TEMP to ITEMA: 

ITEMA = TEMP; 

• Assign B the value TRUE or FALSE as a result of the 
logical conjunction of the value of E and the 
relational value TRUE or FALSE obtained from the 
evaluation of C NQ D: I 

B = C NQ D AND E; 



EXCHANGE STATEMENT 

The exchange statement causes the exchange of values of 
the left and right sides of the exchange operator ==. 
Appropriate type conversion occurs during the exchange if 
necessary: in A==B, B is converted as if A=B appeared, 
with A converted as if B=A appeared. 



TABLE 3-1. REPLACEMENT STATEMENT CONVERSIONS 



Expression Type/ 
Variable Type 


Real 


Integer 


Character 


Real 

Integer 
Character 


Float number. 

Convert to integer, 
then float. 


Truncate fractional 
part of number. 

Right-justify and 
zero-fill all or first 
ten characters of 
value; discard the 
remainder. 


First convert to integer; 
then convert that integer 
to character. 

Left -justify lower 6 bits 
of number with blanks. 
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The format of the exchange statement is: 
vl == v2 

vi Entities whose values are to be exchanged. 

Any of the following can appear: 

Scalar 

Subscripted array item 

P function 

Bead function 

SYMPL guarantees that subscript or bead function 
components of expressions which must be evaluated to 
compute the address of vl or v2 are computed once, 
before either replacement. The order of expansion as to 
which variable is stored first is not guaranteed, however. 
The exchange process refers to the expression values by 
referring to temporary variables. For example, the 
exchange statement A==B occurs as if it were written: 

temp=A; 

A=B; 

B=temp; 

Temporary variables are used for storage of component 
and subscript expressions, so that the old values are 
always used. The expansion of I=-J[l] is: 

templ=I; 

temp2=I; 

I=Jp]; 

J [templ]=temp2; 

The subscript expression j[l] is the old value until the 
statement is complete. 



FOR STATEMENT 

The FOR statement is a generalized looping control 
statement. A simple or compound statement following 
the DO clause of FOR executes repetitively as long as the 
condition established by the FOR statement is TRUE. 

The format of the FOR statement has several forms: 



FOR i=aexpl DO statement 

FOR i=aexpl STEP aexp2 DO statement 

FOR i=aexpl STEP aexp2 UNTIL aexp3 DO statement 

FOR i=aexpl WHILE bexp DO statement 

FOR i=aexpl STEP aexp2 WHILE bexp DO statement 

i Counter for the loop called the 

induction variable. Must be a scalar of 
any type except B or C. 

aexpl Arithmetic expression indicating the 

initial value of the induction variable. 

aexp2 Arithmetic expression indicating a 

value to be added to the induction 
variable for each execution of the loop. 



aexp3 



statement 



bexp 



In the form: 



Arithmetic expression indicating the 
last value for the induction variable for 
which loop repetition is to occur. 

Simple or compound statement to be 
executed repetitively. This statement 
is called the controlled statement. 

Boolean expression that must be TRUE 
for repetitive loop execution. 



FOR i = aexpl STEP aexp2 UNTIL aexp3 DO 
statement 

if the first character of aexp2 is a minus sign, then the 
loop is executed until i is not greater than aexp3. For 
example, in the following statement the loop is executed 
three times, with I equal to 1, -6, and -13 (assuming that 
it is a slowloop): 

FOR I = 1 STEP -7 UNTIL -17 DO . . . 

However, the following loop is never executed if it is a 
slowloop, and executed once if it is a fastloop: 

FOR I = 1 STEP (-7) UNTIL -17 DO . . . 

Since the form FOR i=aexp DO statement produces an 
infinite loop, the programmer-supplied statement must 
provide for an exit jump. 

The expressions used in the STEP and UNTIL clauses can 
use data of any type except Boolean. The results of the 
expressions are converted to the mode of the induction 
variable. The Boolean expression in the WHILE clause can 
be arbitrarily complex. 

Two types of loops, known as fastloops and slowloops, can 
be generated by the compiler, depending on the 
appearance of the compiler-directing CONTROL 
statement. Figure 3-1 compares the two types of loops. 
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Figure 3-1. Generalized Fastloop and Slowloop Flowcharts 
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Fastloops always execute at least once since the test for 
the condition is at the end of the loop. To produce 
predictable results, the elements of the FOR statement 
are restricted as follows: 

• The induction variable must be integer type. It can 
be signed. The absolute value of the induction 
variable must be able to be contained within 17 bits. 



I' 



Neither the induction variable, the STEP nor the 
UNTIL expression can be modified within the loop 
since SYMPL might evaluate these expressions before 
the start of the loop. The WHILE clause can be 
changed within the loop. 



Slowloops need not execute at least once since the test 
for the condition is at the beginning of the loop. The 
restrictions of fastloops do not hold for slowloops. 

The default is slowloop, but it can be overridden for 
following FOR statements: a CONTROL FASTLOOP 



statement affects all FOR statements begun before a 
later CONTROL SLOWLOOP statement. A loop control 
statement within a FOR statement can affect a nested 
loop, but not the loop in process. See section 5 for an 
example of loop control. 

For both types of loops, the value of the induction 
variable is undefined after the loop is complete. For 
slowloops, however, the current value of the induction 
variable is preserved if the controlled statement causes a 
jump out of the loop. The induction variable of a fastloop 
is not preserved when control is transferred outside the 
loop. If the controlled statement is entered by a GOTO 
statement from outside the FOR statement, the value of 
the induction variable is undefined. 

Table 3-2 shows the different types of FOR statements 
and the logic of their generated code. 

The step value and final value shown in table 3-2 in 
temporary locations are not guaranteed: if variables 
involved in these expressions are modified within the loop, 
results are not defined. 



TABLE 3-2. SLOWLOOP AND FASTLOOP EXPANSION COMPARED 



Statement 


Slowloop 


Fastloop 


FOR I=X1 DO A=0; 


L: 


I=X1; 
A=0; 
GOTO L; 


L: 


I=X1; 
A=0; 
GOTO L; 


FOR I=X1 STEP X2+2 DO A=0; 


L: 


I=X1; 

A=0 - 

I=I+X2+2; GOTO L; 


L: 


templ=X2+2; 

I-Xl; 

A=0; 

I=I+templ; GOTO L; 


FOR I=X1 STEP X2+2 UNTIL X3+3 
DO A=0; 


L: 


I=X1; 

IF I LQ X3+3 THEN 

BEGIN 

A=0; 

I=I+X2+2; GOTO L; 

END 


L: 


tempi =X2+2; 

temp2=X3+3; 

I=X1; 

A=0; 

I=I+templ; 

IF I LQ temp2 THEN GOTO L; 


FOR I=X1 STEP -X2+2 
UNTIL X3+3 DO A=0; 


L: 


I=X1; 

IF I GQ X3+3 THEN 

BEGIN 

A=0* 

I=I-X2+2; GOTO L; 

END 


L: 


tempi X2+2; 

temp2=X3+3; 

I=X1; 

A=0; 

I=I+templ; 

IF I GQ temp2 THEN GOTO L; 


FOR I=X1 WHILE BX DO A=0; 


L: 


I=X1; 

IF BX THEN 

BEGIN 

A=0; GOTO L; 

END 


L: 


I=X1; 

A=0; 

IF BX THEN 

GOTO L; 


FOR I=X1 STEP X2+2 WHILE BX 
DO A=0; 


L: 


I=X1; 

IF BX THEN 

BEGIN 

A=0* 

I=I+X2+2; GOTO L; 

END 


L: 


tempi =X2+2; 

I=X1; 

A=0; 

I=I+templ; 

IF BX THEN GOTO L; 


FOR I=X1 STEP 27 WHILE A LQ B 
AND C GR D DO A=0; 


L: 


I=X1; 

IF A LQ B AND C GR D 

THEN 
BEGIN 
A=0; 
1=1+27; 
GOTO L; 
END 


L: 


I=X1 

A=0; 

1=1+27; 

IF A LQ B AND C GR D 

THEN GOTO L; 
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TEST STATEMENT WITHIN A 
FOR STATEMENT 



In a FOR statement, the compiler automatically supplies 
the modification, test, and branching steps of a loop. The 
TEST statement provides a structured method of 
branching to the modify-test-branch step; it is meaningful 
only within the controlled statement of a FOR statement. 

The format of the TEST statement is: 

TEST name; 

name Name of the item used as induction variable 
in a loop containing the TEST statement. If 
omitted, control transfers to the 
modify-test-branch sequence of the 
innermost loop. 



When TEST is executed, control transfers to the 
modify-test-branch for the specified induction variable. 
Consequently, the other inner index modify-test-branch 
steps could be skipped and those induction variables would 
not be incremented for the next iterations. If TEST 
transfers control outside the innermost level, the inner 
levels are terminated and can be reentered only through 
their FOR statement beginning. Meanwhile, the induction 
variables have the values they had when the jump outside 
the loop occurred, except for fastloops. 



Examples of TEST use within FOR: 

• Bypass all source statements between the TEST 
statement and END if the Boolean expression of an IF 
statement is TRUE. 

FOR A=0 STEP 1 UNTIL 52 
DO 

BEGIN 

F DEMAND [TODY] GR 
DEMAND [TOMRW J 
THEN TEST; 



END 



• Bypass innermost nested statements within a FOR 
loop. 

I FOR A = STEP 1 

UNTIL 100 
DO 
| BEGIN #A# 



FOR B=99 STEP -1 

UNTIL 
DO 

BEGIN #B# 

F INCOME [B] GR 1000 

OR CREDIT f B] EQ S"GOOD" 
THEN 

BEGIN 

TEST A; 

END 



IF END INCOME [b] LS 5000 

AND AGE[B]LS18 
THEN 

BEGIN 

TEST B; 

END 



END #B# 
END #A// 



If the conditions in the first F statement are satisfied, 
control passes to the modify-test-branch for the outer 
loop, index A. If the first TEST statement had not 
specified A, control would have passed to the innermost 
test for B. If both conditions in the first IF statement are 
FALSE, execution bypasses the first TEST statement; and 
if the conditions of the second statement are satisfied, 
TEST B is executed, which passes control to the test for 
index B. Only when the above conditions are FALSE are 
the source statements following TEST B executed. 



GOTO STATEMENT 

The GOTO statement unconditionally transfers control to 
a statement designated by a label name or a subscripted 
switch list name. 

The format of a GOTO statement specifying a label name 
is: 



GOTO label; 
label 



Name of a label within the program, a I 
formal label, or an XREF label. f 



The format of a GOTO statement specifying a subscripted 
switch list name is: 

GOTO swnamefexp]; 

swname Name of a switch list previously 

declared in a SWITCH declaration. 

exp Arithmetic expression whose value is 

one of the small integers the compiler 
assigns to switch list entities. 



The following are examples of GOTO statements: 

• Unconditionally transfer control to label JAIL: 

GOTO JAIL; 

• Unconditionally transfer control to the label whose 
value corresponds to the value of the 
expression A+B-C: 

SWITCH ASW ZERO, ONE, TWO, THR, FOUR; 



GOTO ASW [A+B-C]; 



60496400 F 



3-5 



IF STATEMENT 



• Change a TRUE value of BOOL to FALSE: 



The IF statement causes a conditional transfer of control 
depending on the value of a Boolean expression within the 
statement. The format of the IF statement is: 



or 



IF bexp THEN statement!. 

IF bexp THEN statementl ELSE statement2 



bexp 



statementl 



statement2 



Boolean expression; 
arbitrarily complex. 



be 



Statement to be executed when the 
value of the Boolean expression is 
TRUE. 

Statement to be executed when the 
value of the Boolean expression is 
FALSE. 



If ELSE statement2 is omitted, and the value of the 
Boolean expression is FALSE, the next statement after 
the IF statement is executed. 

Each statement within the IF statement follows the 
syntax rules for statements; each can be a simple or 
compound statement; each statement must be terminated 
with a semicolon. 

When an F statement is nested within another IF 
statement, ELSE clauses are always associated with the 
inner nested incomplete F statements, as shown in the 
examples below. 

The following are examples of IF statements. 

• Set PSI to 6 when RHO is less than or equal to 1 or XI 
is 1; otherwise set PSI to 9: 

IF RHO LQ 1 

OR XI EQ 1 
THEN 

PSI = 6; 
ELSE 

PSI = 9; 

• Execute procedure VOTER when AGE is at least 18; 
otherwise execute procedure MINOR: 

F AGE GQ 18 
THEN 

VOTER; 
ELSE 

MINOR; 



FBOOL 
THEN 

BEGIN 

BOOL = BOOL AND BOOL2; 

END 



Set NUMOPDS to the number of operands in the 
binary expression indicated by LOPD and ROPD: 



F LOPD EQ S "NULL" 
THEN 

NUMOPDS = 0; 
ELSE 

BEGIN 

IF ROPD EQ S "NULL" 

THEN 

NUMOPDS = 1; 

ELSE 

NUMOPDS = 2; 

END 



RETURN STATEMENT 



The RETURN statement returns control to the calling 
routine. 

The format of the RETURN statement is: 

RETURN; 



The compiler generates a RETURN statement after the 
last statement in the body of a procedure or function. 

A RETURN statement in a main program is equivalent to 
a STOP statement. 



STOP STATEMENT 

The STOP statement halts program execution and returns 
control to the operating system. A STOP statement is 
generated automatically by the compiler after the last 
statement of the main program. 

The format of the STOP statement is: 

STOP; 
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PROGRAM STRUCTURE 



A SYMPL program can be a main program, a procedure 
subprogram, or a function subprogram. Function and 
procedure subprograms can be nested within a main 
program or another subprogram. 

SCOPE OF VARIABLES 

Names declared within a subprogram body are recognized 
only within that subprogram. And, since subprograms can 
be nested, any name declared within a subprogram body is 
therefore recognized within any subprogram nested 
within it. 



The scope of a declaration is the subprogram within which 
it occurs. When nested subprograms contain declarations 
for the same name, the innermost declaration has 
precedence. 



In figure 4-1, item AA can be referenced from any of 
procedures A, B, C, or D. Item CC, however, can be 
referenced from within C, but not from within procedure 
D. Within procedure D, a reference to item DD uses the 
value indicated by #LOCAL#; in any other procedure, a 
reference to DD uses the value indicated by #GLOBAL#. 



PROC A; 

BEGIN #A# 

ITEM AA; 

ITEM DD; #GLOBAL# 



PROC B; 
BEGIN #B# 
ITEM BB; 



PROC C; 
BEGIN #C# 
ITEM CC; 



END #C# 



PROC D; 

BEGIN #D# 

ITEM DD; #LOCAL# 



END #D# 
END #B# 
END #A# 



When a name is used, the last declaration encountered is 
the declaration in effect, even if it occurs at an outer 
level. For labels and procedures only, a name can be used 
before it is declared. In this case, if the same name has 
already been declared at an outer level, the definition at 
the outer level is in effect. Under these circumstances, 
the only way the definition in the inner level can be used 
is to provide an FPRC declaration for the procedure or a 
LABEL declaration for the label. The FPRC and LABEL 
declaration occurs, before the use of the procedure or 
label, and signals the compiler that the actual procedure 
or label occurs later. 



An example of a LABEL declaration and use is shown in 
section 3. An FPRC declaration is required under similar 
circumstances. The FPRC declaration is: 

FPRC name; 

name Procedure name to be declared subsequently. 



The outermost subprogram name of a compilation unit is 
used by the loader as the name of the unit. Such a unit 
can be referenced as an external subprogram. External 
subprograms, and programs that reference external 
subprograms, are subject to the XDEF and XREF rules 
noted below. Communication between separately 
compiled programs and subprograms can be performed by 
COMMON declarations, by passing parameters to the 
subprograms, or by the XDEF/XREF mechanism. 



MAIN PROGRAM 

A main program consists of a program header followed by 
a series of declarations and statements and ended by a 
TERM statement. The TERM statement is explained in 
section 5. 



Figure 4-1. Scope of Declarations 



The format of a main program header is: 



PRGM name; 

name Name by which program is known. Identifier 
of 1 through 12 letters, digits, or $ that does 
not begin with a digit or $ and does not 
duplicate a reserved word. For loader 
purposes, the name is truncated to seven 
characters. 



PROCEDURES 

A procedure is subprogram that executes when its name, 
or one of its alternative entry points, is called. 
Parameters can be passed to the procedure as part of its 
call. 
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When a procedure is called, execution begins at the first 
executable statement following the procedure name or 
entry point, depending how the procedure was referenced. 
Execution continues until a RETURN statement is 
encountered, a GOTO statement in the procedure 
transfers control outside the procedure, or the procedure 
ends. Termination of the procedure through its last 
statement or a RETURN statement returns control to the 
statement following the one that called the procedure. A 
procedure cannot call itself. 

A procedure must be defined by a procedure declaration. 
The declaration can appear anywhere in a program that 
any other declaration can appear. The flow of control 
during execution of a main program or subprogram is not 
affected by the nesting of any subprogram. 

A procedure declaration consists of the following 
elements in this order: 

• Procedure header 

• Optional series of declarations 

• Procedure body consisting of a single elementary or 
compound statement. The compound statement can 
include declarations, alternative entry points, or 
other elementary or compound statements. 

The format of a procedure header is: 

PROC name (param, param, . . . ); 

name Identifier of 1 through 12 letters, digits, or $ 
that does not begin with a digit and does not 
duplicate a reserved word. 

param Optional formal parameter used within the 
procedure for which an actual parameter is 
to be substituted at the time the procedure 
executes. A null parameter is invalid. 

Any of the following can be specified by 
name: 



Procedure CLEAR contains a single compound 
statement. Declarations for parameters X and N 
appear within the compound statement, as does the 
declaration for the induction variable of the FOR 
loop. I could also be a global declaration, rather than 
a local declaration within CLEAR. 



FORMAL PARAMETERS 

The procedure body must contain a declaration for each of 
its formal parameters, except for a label name used as a 
parameter. (Any formal parameter that does not have an 
associated declaration is assumed to be a label.) Formal 
parameters, and other entities used within the procedure, 
must be declared before they are referenced. 



The declarations for scalars, arrays, based arrays, and 
subscripted array items are the same within a procedure 
body as they would be elsewhere. 



The declarations for procedures and functions that are 
formal parameters require a declaration in the following 
formats: 



• For each procedure name used as a formal parameter: 

FPRC name; 

name Formal name of procedure. 

• For each function name used as a formal parameter: 

FUNC name type; 

name Formal name of function. 

type Type of function: B, C(lgth), U, I, R, S. 



Scalar 


Array 


Label 


Based array 


Procedure 


Function 



A scalar name can be enclosed in 
parentheses to indicate to the compiler that 
the actual parameter is to be passed by 
value rather than by address. 

A call-by-value parameter should be used whenever 
possible because it produces more efficient object code. 
Such a parameter cannot be used, however, if its value 
must be returned to the calling program. Calls-by-value 
reference a copy of an actual parameter, not the 
parameter itself. Therefore, changes made to the 
parameter within the subprogram are not reflected in the 
calling program. 

An example of a procedure declaration that sets a 100 
word array to real values 0.0 is: 

PROC CLEAR(X,(N)); 
BEGIN 
ARRAY X[99~\; 

ITEM XX R(0,0,60); 
ITEM N; 
ITEM I; 
FOR 1=0 STEP 1 UNTIL N DO 

XX[lJ=0.0; 
END 



A LABEL declaration for a formal parameter label is 
permitted but not required. If it is present, it declares 
the formal label, rather than indicating that a label with 
the same name appears later in the procedure. If a label 
with the same name appears in the procedure, the label 
can only be branched to backwards; a branch appearing 
before the label references the parameter label. 



A declaration for a formal parameter is not recognized if 
it occurs in a nested inner procedure. For example, in the 
following, the declaration ITEM A produces a scalar local 
to procedure Y, not an association with parameter A of 
procedure X. 



PROC X(A); 

BEGIN 

PROC Y(B); 
BEGIN 
ITEM A; 



END 



END 
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ACTUAL PARAMETERS 

Actual parameters are those arguments passed to the 
procedure when the procedure is called during execution. 
Any of the following can be used as an actual parameter: 



Arithmetic expression 
Boolean expression 
Array name 

Subscripted array name 
P function 



Scalar name 

Label name 

Procedure name 

Function name 

Subscripted array 
item name 



Actual parameters should correspond to formal 
parameters as follows: 



Actual Parameter 

Subscripted array 
item name 

Scalar 
Expression 

P function 

Subscripted array name 

Other 



Formal Parameter 
Scalar 

Scalar 

Based array 

Array 

(not based array) 

Same as actual 



Expressions are evaluated before subprogram execution 
and the addresses of temporary locations containing the 
resulting values are passed to the procedure. Other 
parameters are passed to the procedure as addresses. 
When a function name without a parameter list is an 
actual parameter, the formal parameter is assumed to be 
a function name. A parameter list is required if the 
function value is to be passed to the called procedure. 
When a based array is a formal parameter, only the 
address is passed as an actual parameter. 



A single array item reference is considered an expression 
and evaluated accordingly. The resulting value of the 
array item is passed. Subscripted array names are passed 
as the address of the first word with that subscript, thus 
permitting the formal array to be offset from the actual 
array. For example, B[0j overlays A[5] with these 
declarations and references: 



ARRAY A[l:10];; 

P(A[5]); 

PROC P(B); ARRAY B [0:5j; 



temporary variable. For example, calling FUNNY with 
parameter J results in procedure execution and return to 
the calling program. 

ITEM J; 

PROC FUNNY(FACE); 

BEGIN 

ITEM FACE; 

ITEM A, B; 

A=FACE; 

J=3; 

B=FACE; 
EAR: FAEQB THEN 
GOTO EAR; 

END 

J=4; 
FUNNY(J); 

If FUNNY had been called with FUNNY((J)), however, an 
endless loop would exist. 

Enclosing an actual scalar name in parentheses results in a 
protection of the value with which the procedure was 
called. 

Actual arguments to subprograms are either 
call-by-reference or call-by-value. Call-by-reference 
means that the address of the argument is passed to the 
subprogram. The value of the argument can be changed 
by the called subprogram, unless the argument is a 
procedure, function, or label; the changed value is 
effective in both the called subprogram and the calling 
subprogram. Call-by-value means that the value of the 
argument is computed and stored in a temporary variable; 
then the address of the temporary variable is passed. 
Therefore, any change in value of the argument is only 
effective in the called subprogram. 

The following types of arguments are passed by 
call -by-reference: 

Scalar items 



Arrays 
Labels 

Procedure names and function names with no 
argument list. 

he following types of arguments are passed by 
call-by-value: 

Subscripted array items 

Constants 

Expressions other than item names 

LOC function references 

The form: 

(item name) 



When a subprogram name or scalar name is enclosed in 
parentheses in an actual parameter list, the name is 
evaluated before the call and passed to the procedure as a 



If a P function reference is passed as an actual argument, 
what is passed is the address of a temporary variable 
containing the pointer to the based array. 
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SYMPL does not check to see that corresponding formal 
and actual parameters are compatible in kind. However, 
the results can be invalid if they are not. The types of 
correspondence that produce valid results are shown in 
table 4-1. 

TABLE 4-1. ACTUAL/FORMAL PARAMETER 
CORRESPONDENCE 



A function declaration consists of the following elements 
in this order: 



Kinds of 

Formal 
Parameters 


Valid Kinds of 
Actual Parameters 


Seal ar 
(call -by- 
reference) 

Scalar 
(call -by- 
value) 

Array 

Based array 

Label 

Procedure 

Function 


Item name or call -by- value scalar 

Expression item, or subscripted 
array item 

Array name (based or non-based) 
■P function or address expression 
Label name 
Procedure name 
Function name 


*A based array name used as an actual parameter 
requires an array as a formal parameter. The 
formal parameter must be a based array only if 
the called program must reposition the array for 
the calling program. 



FUNCTIONS 

A function is a subprogram whose name is associated with 
a specific value. It executes, and thereby determines the 
value of the name, when the function name appears in an 
expression. The function name value then is used in 
evaluation of the expression. 

Two types of functions exist: 

• Intrinsic functions that can be referenced without a 
corresponding declaration within the program. 

• Programmer-supplied functions that must be declared 
before they can be referenced. 



PROGRAMMER-SUPPLIED FUNCTIONS 

A function must be declared by a function declaration. 
The declaration can appear anywhere in a program that 
any other declaration can appear. The flow of control 
during execution of a main program or subprogram is not 
affected by the nesting of any subprogram. 

Unlike a procedure declaration, a function declaration or 
an XDEF declaration of the function name must appear 
before the function is referenced in an expression. 



• Function header 

• Optional series of declarations 



• Function body consisting of a single elementary or 
compound statement. The compound statement can 
include declarations, alternate entry points, or other | 
elementary or compound statements. 



The format of a function header is: 

FUNC name (param, param, . . . ) type; 



Identifier of 1 through 12 letters, digits, or $ 
that does not begin with a digit and does not 
duplicate a reserved word. 



param 



Optional formal parameter used within the 
function for which an actual parameter is to 
be substituted at the time the function is 
referenced in an expression. 

Any of the following can be specified by 
name: 



Scalar 


Array 


Label 


Based array 


Procedure 


Function 



type 



If a scalar name is specified, it can be 
enclosed in parentheses to indicate to the 
compiler that the actual parameter is to be 
passed to the function by value rather than 
by reference, as discussed for procedure 
parameters. 

Type of the function's result: 

B Boolean 

I Integer; default 

U Unsigned integer 

R Real 

C(lgth) Character of length lgth 

S:stlist Status 



The function body must set the function name to a value 
before the end of the body statement or before any 
RETURN within the function. Otherwise, the value 
returned by the function is undefined. The function name 
must not appear on the right side of an assignment 
statement or as an actual argument within the function 
body, however, since functions cannot be recursive. 



The function body must contain a declaration for each of 
its formal parameters except a label. Information 
pertinent to parameter declarations of procedures is also 
pertinent to functions. 
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INTRINSIC FUNCTIONS 

Five intrinsic functions exist: 

Function Purpose 

Obtain absolute value 



ABS 

B 
C 

LOC 
P 



Reference bit string from a field 

Reference character string from a 
field 

Reference address of data 

Set pointer to based array 



The B function and the C function are called bead 
functions since their purpose is to access consecutive bits 
or characters of a string. 



ABS Function 

The ABS function returns the absolute value of the 
function argument. Its format is: 



ABS(exp) 
exp 



Expression whose absolute value is to be 
returned. 



The type of the argument determines the type returned: 
Argument Type Type Returned 

Real Real 



Integer or 
unsigned integer 

Other 



Unsigned integer 

Same argument specified 
in call 



B Function 

The B function accesses one or more bits from a specified 
item, thereby creating an unsigned integer value. The 
format of the B function is: 

B first,lgth iname 



first 



lgth 



Arithmetic expression specifying the 
first bit of iname to be accessed, 
numbering from on the left of iname. 
(Numbering is not from the left of the 
word in which iname appears.) 



Arithmetic expression specifying the 
number of consecutive bits to be 
accessed. If omitted, 1 is assumed. A 
constant length of zero is not allowed. 
If an expression is used whose value at 
execution time is zero, the results are 
undefined. 



The maximum value for lgth is affected 
by both the type of iname and its 
position in a memory word: 

For type I, U, or R, lgth is limited 
to 60 and word boundaries cannot 
be crossed. 

For type C, lgth is also limited to 
60, but word boundaries can be 
crossed. 

No check is made to verify that the 
bead size is less than or equal to the 
item size. 

iname Name of a scalar or subscripted array 

item from which bits are to be accessed. 

When a B function is the object of a replacement 
statement, only the bits specified are affected by 
execution of the statement. The bead function is of the 
type unsigned integer; therefore, the right side of the 
replacement statement is converted to unsigned integer 
before the assignment takes place. The conversion rules 
are given in the description of the replacement statement 
in section 3. 

When a B function is used other than as the object of a 
replacement statement, the specified bits are extracted 
and are right-justified and zero-filled to convert them to 
unsigned integer. The type of the item from which the 
bits were extracted does not affect the conversion process. 

The number of bits that can be accessed is limited by the 
length of the item being referenced. The bead size is not 
checked to insure that it is less than or equal to the size 
of the item being accessed. The results of overaddressing 
may not be what the user intended. 

An example of the B function use is the following, which 
counts the number of bits in FLAGS: 

ITEM COUNT; 

ITEM FLAGS; 

COUNT =0; 

FOR 1=0 STEP 1 UNTIL 59 DO 

IF B<I,1>FLAGS EQ 

THEN 

COUNT =COUNT + 1; 



C Function 

The C function accesses one or more 6-bit characters 
from a specified item, thereby creating character value. 
The format of the C function is: 

C<f irst,lgth> iname 

first Arithmetic expression specifying the 

first character of iname to be accessed, 
numbering from on the left of iname. 
(Numbering is not from the word in 
which iname appears.) 

lgth Arithmetic expression specifying the 

number of consecutive characters to be 
accessed. If omitted, 1 is assumed. A 
constant length of zero is not allowed. 
If an expression is used whose value at 
execution time is zero, the results are 
undefined. 
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The maximum value for lgth is affected 
by both the type of iname and its 
position within a memory word: 

For type, I, U, or R, lgth is limited 
to 10 and word boundaries cannot 
be crossed. 

No check is made to verify that the 
bead size is less than or equal to the 
item size. 

For type C, lgth is limited to 240 
and word boundaries can be crossed. 



In this context an array name with subscripts results In 
the address of the array entry with that subscript. For 
example: 

P<BASE> = LOC(ARRAYl[l]); 

An array item name returns the address of the word in 
which the item begins. 

When a P function is used as an argument for LOC, the 
address of the pointer word to the based array is obtained. 

The first word address of an array or based array is 
available via the LOC function. 



iname Name of a scalar or subscripted array 

item from which characters are to be 
accessed. 

When a C function is the object of a replacement 
statement, only the characters specified are affected by 
execution of the statement. The bead function is of the 
type character; therefore, the right side of the 
replacement statement is converted to character before 
the assignment takes place. The conversion rules are 
given in the description of the replacement statement in 
section 3. 

When a C function is used other than as the object of a 
replacement statement, the specified characters are 
extracted and converted to character. They are 
left-justified and blank-filled. The type of the item from 
which the characters were extracted does not affect the 
conversion process. 

The number of characters that can be accessed is limited 
by the length of the item being referenced. The bead size 
is not checked to insure that it is less than or equal to the 
size of the item being accessed. The results of 
overaddressing may not be what the user intended. 

An example of the use of the C function is: 

ITEM BOAT C(10)="SERIAL0ABC"i 
C<7,3>BOAT="XYZ"; 

Results in BOAT having a value SERIALOXYZ. 

Type conversion occurs as necessary when a C function is 
used in a replacement statement. A reference to an item 
containing an address cannot, for example, extract that 
address with a reference C<7,3>FIRST, since such a 
reference converts the integer address to type character. 



LOC Function 

The LOC function returns an address of a data structure 
during program execution. The format of the LOC 
function is: 

LOC(argument) 

argument Name of any of the following: 

Scalar 

Subscripted array item 

Procedure name 

Function name 

Label name 

Switch name 

Array name with optional 

subscript 
P function 



P Function 

The P function references the pointer variable for a based 
array. The format of the P function is: 

P<barray> 

barray Name of a based array. 

By setting the P function to an integer value, the contents 
of memory at that location can be referenced. For 
example, the contents of RA+1 within a program field 
length can be accessed as RA 1 by: 

BASED ARRAY MEM [99]; ITEM RA; 
P<MEM>=0; 

Other examples of the P function and based arrays are: 

• Chain down a list structure and pass back the address 
of the desired list element in MATCH: 

BASED ARRAY LIST [0:0] S(l); 

BEGIN 

ITEM THING 1(0, 0,42); 

ITEM NEXTLIST 1(0, 42,18); 

END 
ITEMLISTHEAD I; 
ITEM TARGET I; 
ITEM MATCH I; 



P<LIST> = LISTHEAD; 
FOR MATCH=0 

WHILE MATCH EQ 
DO 

BEGIN 

IF THING EQ TARGET 

THEN 

MATCH = P<UST>; 

ELSE 

P<LIST> = NEXTLIST; 

END 

• Preset a based array BLOCK to 0. In such an 
instance LOC(A) might have been passed to the 
procedure containing the following: 

BASED ARRAY BLOCK [99]; 
ITEM WORD 1(0,0*60); 



P<BLOCK> = LOC(A); 
FOR 1=0 STEP 1 UNTIL 99 DO 
WORD I = 0; 
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ALTERNATE ENTRY POINTS 



Alternate entry points can be declared for both 
procedures and functions with the ENTRY declaration. 

The format of the ENTRY declaration for a procedure and 
a function, respectively, are: 

ENTRY PROC name (param, param, . . . ); 

ENTRY FUNC name (param, param, . . . ) type; 

parameters and type are optional, depending on the 
needs of the subprogram. The default type is integer. 



The ENTRY declaration need not duplicate parameters 
associated with the subprogram name if such parameters 
are not used when the subprogram is called by the 
| alternate entry point. Values for parameters not 
associated with the particular entry are undefined. 

| The type of an alternate entry point need not be the same 
type as the name of the principal entry point. At 
execution time, the value returned is of the same type as 
the entry point through which the function is entered. 

A character item longer than ten characters cannot be 

I returned by any function with alternate entry points. If 
the function has no alternate entry points, arbitrarily long 
character items can be returned. Only one entry point to 
a procedure can be active at one time. 

| An example of a procedure with an alternate entry point 
follows. The procedure searches an array until an element 
matching the actual parameter TARGET is found. If the 
procedure is entered through the principal entry point 
RESEARCH, the parameter START specifies where in the 
array to begin searching. If the procedure is entered 

| through the alternate entry point SEARCH, searching 
starts from the beginning of the array. 

PROC RESEARCH ((START), MATCH, LIST, 

(TARGET)); 
BEGIN 

ARRAY LIST [0:100] S(l); 
BEGIN 



ITEM THING 

END 
ITEM MATCH 
ITEM TARGET 
ITEM START 
ITEM I 



1(0, 0,42); 

i; 
i; 
I; 
I; 



GOTO SRCH; 

ENTRY PROC SEARCH (MATCH, LIST, (TARGET)); 



INTERPROGRAM COMMUNICATION 



Three SYMPL declarations allow communication between 
subprograms that are compiled separately: COMMON, 
XREF, and XDEF. SYMPL truncates all names to be 
passed to the loader to the first seven characters, 
although all the characters retain significance internally. 
Such names must not begin with $. 



COMMON DECLARATION 

The COMMON declaration provides up to 509 blocks of 
storage that can be referenced by more than one 
subprogram. Variables in these blocks are assigned 
storage when the program is loaded. 

The COMMON declaration must appear in the outermost 
level of a compilation. 

The format of the COMMON declaration is: 

COMMON name; datadec 

or 

COMMON name; BEGIN datadec datadec . . .END | 

name Name of common block. If omitted, 

blank common is used. 

datadec Declaration for a scalar, array, or based 

array as described in section 2. 

Preset values can be included in the 
data declaration if the common block is 
named. (Blank common cannot be 
initialized at load time.) The 

subprogram containing this declaration 
must be compiled with the P parameter 
of the compiler call in order for preset 
values to be compiled; alternatively, 
the CONTROL PRESET compiler- 
directing statement can be included in 
the subprogram when preset values are 
to be initialized in named common. 



When a based array is declared to be in common, only the 
pointer to the array is passed in common. 

Variables are stored in a common block in the order they 
are declared. Relative locations for all items should be 
the same in all subprograms referencing a particular block. 



START = 0; 


SRCH: 


MATCH = 0; 


FOR I=START STEP 1 


WHILE MATCH EQ 


AND I LQ 100 


DO 


BEGIN 


IF THING EQ TARGET 


THEN 


MATCH = I; 


END 


END 


TERM 
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XDEF DECLARATION 

The XDEF declaration generates an entry point such that 
the loader can link the specified names to those declared 
by XREF in separately compiled modules. It also 
allocates storage for any variables. 

The format of the XDEF declaration is: 

XDEF xdec 



XDEF BEGIN xdec xdec . . . END 
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xdec Name of any procedure, function or 

label that is to be referenced in an 
externally compiled program; or a full 
data declaration for a scalar, array, 
switch, or based array. XDEF data can 
be preset. 

The xdec for a procedure, function or 
label is: 

PROC name; 

FUNC name type; 

LABEL name, name, . . . ; 

XDEF declarations for procedure and function names 
enable nested procedures and functions to be referenced 
from separately compiled modules. The XDEF declaration 
must appear in a containing block before or after the 
procedure or function being specified in the XDEF 
declaration. The XDEF declaration cannot appear in the 
procedure or function that is being declared with the 
XDEF. 

The name of the outermost procedure or function in a 
compilation unit cannot be declared with the XDEF 
statement. An entry point is automatically generated for 
the outermost procedure or function. 

An example of the use of XDEF declarations is: 

PROC A; 
BEGIN # A# 

XDEF PROC B; 

PROC B; 

BEGIN #B# 



END #B# 



END #A# 
TERM 
PROC C; 
BEGIN #C# 

XREF PROC B; 

XREF PROC A; 



A; 

B; 
END #C# 
TERM 

This example shows two separate compilation units. The 
first compilation unit contains two procedures, A and B. 
Procedure A is the outermost block and procedure B is 
nested in procedure A. The second compilation unit 
contains one procedure, C, which references both 
procedures in the first compilation unit. 

Since procedure A is the outermost block of a compilation 
unit, an entry point is automatically generated for it. 
Therefore, it can be called from other compilation units, 
but it cannot be declared in an XDEF declaration. 

The XDEF declaration that appears before procedure B 
causes an entry point to be generated for procedure B so 
that it can be called from other compilation units. The 
XDEF declaration can appear before or after procedure B, 
but not in procedure B. 



Procedure C is in a separate compilation unit. It 
references both procedure A and procedure B. Procedures 
A and B must be declared in an XREF declaration. 



An example of use of the XDEF and XREF declarations I 
for data items is: | 

» Procedure A is compiled with: 

XREF ITEM COUNT I; 
• Procedure B is compiled with: 

XDEF ITEM COUNT I; 



Any reference to COUNT from within procedure A 
accesses the storage reserved for the item within 
procedure B, assuming both A and B are available at load 
time. 



XREF DECLARATION 

The XREF declaration generates external references to 
the specified names. It is assumed that storage for 
variables is allocated and appropriately declared external 
in a separately compiled program which could be written 
in another language. 

The format of the XREF declaration is: 

XREF xdec 

or 

XREF BEGIN xdec xdec . . . END 

xdec Any of the following whose storage is 

declared with XDEF: 

Data declaration for a scalar without 
preset. 

Data declaration for an array without 
presets. 

Data declaration for a based array. 

PROC name; 

FUNC name type; 

LABEL name, name, . . . ; 

SWITCH name, name, . . . ; 



XREF itself is not terminated by a semicolon, but each 
declaration within the XREF statement requires a 
terminating semicolon. 

Examples of XREF statements are: 

XREF BASED ARRAY AA; ITEM XX; 

XREF SWITCH JUMVEC; 
XREF FUNC LINEUP R; 
XREF ARRAY [0:9,0:9] S( 5); 

BEGIN 

ITEM ZZ C(0,0,40); 

ITEM YY R(4,0,60); 

END 
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COMPILER DIRECTIVES 



Four types of SYMPL statements are compiler-directing 
statements rather than executable statements. These are: 



• $BEGIN and $END statements which allow enclosed 
source statements to be compiled only in the 
presence of the E parameter of the SYMPL control 
statement. They specify SYMPL debugging features. 



• DEF statement which allows a mnemonic reference 
to a string of up to 240 characters. This is similar to 
a macro facility. 



• CONTROL statement which affects the compilation, 
depending on words used in the statement. 



• TERM statement which terminates compilation units. 



DEF adds to the maintainability of a program by allowing 
constants or part of a statement to be referenced 
mnemonically. It also allows generation of in-line code 
for short functions. For example: 

• Specify upper array bound for a table: 

DEF TABSIZE #32# 
ARRAY [TABSIZE]; 

• Define T and F corresponding to TRUE and FALSE 

DEF T #TRUE#; 
DEF F #FALSE#; 

• Define a Boolean expression for use in IF or FOR 
statements: 

DEF BOOL2 //A GR B AND B NQ 0#; 
IF BOOL2 THEN . . . 



$BEGIN/$END DEBUGGING FACILITY 

Source language statements that are being compiled only 
for debugging purposes should be preceded by a $BEGIN 
statement and followed by an $END statement. This 
causes those statements to be compiled only when the E 
parameter appears on the SYMPL control statement. If 
the E parameter is not specified, statements between the 
$BEGIN and $END statements are not compiled. See 
section 6 for a description of the E parameter. 



$BEGIN and $END are syntactically equivalent to BEGIN 
and END and can be used to delimit compound 
statements. However, such use can lead to unanticipated 
problems when the program is compiled without the E 
parameter: specifically, use of $BEGIN/$END to delimit 
the compound controlled statement of IF, FOR, ELSE, or 
PROC statement induces the compiler to use the 
succeeding statement as the controlled statement during a 
compilation without the E parameter, which probably is a 
logic error. Correct syntax should be maintained for a 
program whether or not it is compiled in debugging mode: 
BEGIN followed by $BEGIN is valid and useful. 



A TERM statement must not appear between $BEGIN and 
$END. Furthermore, $END must not be produced by a 
DEF expansion. 



DEF FACILITY 

DEF is a compiler-directing statement that associates a 
character string with an identifier name. During 
compilation, each reference to the DEF identifier name is 
replaced by the character string of the DEF body; the 
resulting statement is then compiled in the normal 
manner. No calculation or evaluation occurs during 
replacement: only character string substitution occurs. 
The compiler does not print the expanded DEF. 



The DEF identifier name can be defined to cause one of 
two types of character string substitutions: 

• When the DEF statement does not include 
parameters, the DEF body is substituted in exactly 
the form in which it is declared. 

• When the DEF statement includes parameters, the 
DEF body is modified according to parameters 
accompanying the DEF identifier name reference. 



A DEF statement with parameters provides a simple 
macro capability for the SYMPL language. 



The DEF statement can appear anywhere in a program 
that a declaration or executable statement can appear, 
except within a common block or a XDEF or XREF 
declaration. The declaration is subject to normal rules for 
declarations: 

• The DEF statement must appear before the defined 
» name is referenced. 

• The DEF statement has no effect outside the 
subprogram in which it occurs. 

A name defined by a DEF statement is defined from that 
point through the end of the subprogram. The name can 
be redefined through another DEF statement, which will 
generate a trivial diagnostic. A DEF cannot be 
undefined. No language facility exists for returning an 
identifier to the usage it had before its first DEF 
declaration. 



BASIC DEF USAGE 

In order to use the DEF facility, a DEF must be declared. 
The DEF can then be referenced, or called, in a SYMPL 
program. 
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DEF Name Declarations 

The format of the DEF statement is: 
| DEF name (param,param, . . .) //character string//; 

or 



DEF name 



param 



character 
string 



Name by which the character string is 
subsequently to be referenced. Must be 
identifier of 1 through 12 letters, digits, 
or $ beginning with a letter. 

Formal parameter which is to be 
replaced by an actual parameter when 
the DEF is expanded. Must be 
identifier of 1 through 12 letters, digits, 
or $ that does not begin with a digit. 
Parameters are optional. 

The formal parameter names need only 
be unique within each parameter list. 
They can duplicate names defined 
elsewhere in the program. 



DEF body that is to replace references 
to the DEF name. Any character string 
can appear, including a null string. The 
character // in the string must be 
represented by ////. As many as 240 
characters can appear in the string. 



The body of a DEF is a character string. It has no 
meaning until it is expanded by a DEF reference. The 
DEF body can reference another DEF or data which is 
undefined at DEF declaration time. However, everything 
referenced in the DEF body must be defined when the 
DEF is referenced. 



Although DEF declarations can be nested, they cannot be 
circular. 



A legal nesting is: 

DEF BOOL //A AND B//; 
DEF A //C EQ 3//; 

A reference to F BOOL THEN X=l; 
expands as IF C EQ 3 AND B THEN X=l; 



An illegal circular definition is: 

DEF TWO // BEGIN ONE END //; 
DEF ONE # TWO //; 



The formal parameters in a DEF declaration are 
recognized within the DEF body except that if the 
parameters appear within a comment or within a string 
delimited by quote marks, they are not modified during 
expansion. Otherwise, each occurrence of the parameter 
within the DEF body is replaced by an actual parameter 
accompanying the DEF name reference. The characters 
B, C, E, I, O, P, R, S, U, and X are not replaced by an 
actual parameter when they appear as a syntax-defining 
descriptor. 



The programmer is responsible for the syntactic 
correctness of the statements that result from DEF 
substitution. For instance, this example is incorrect: 

• DEF SIZE #1000//; DEF HALF //SIZE/2//; with 
reference ITEM A = HALF; produces a syntax error 
because substitution results in ITEM A = 1000/2; and 
items must be preset by constant, not expression, 
values. 



DEF Name References 

Once a DEF name has been defined, subsequent references 
to that name are replaced by the characters in the DEF 
body. No substitution occurs in the following 
circumstances, however: 

• The DEF name appears within a comment. 

• The DEF name appears within a constant or string. 

• The DEF name or the DEF parameter name appears 
as the identifier being defined by an ITEM, ARRAY 
or COMMON declaration. 

• The DEF name is one of the following and is used in 
the applicable syntax-defining context: 

Type descriptor abbreviations B, C, I, R, S, U. 

Array layout specifiers, P, S, A, U. 

Constant prefixes O, S, X. 

Intrinsic function B, C, P. 

Real number specifier E. 



When the DEF declaration does not include parameters, 
compilation simply replaces the DEF name with the DEF 

body. 

When the DEF declaration includes parameters, each 
reference to the DEF name must be followed by an actual 
parameter list. The format of the DEF name reference 
with parameters is: 

name(param,param, . . .) 

name Name defined in a prior DEF 

declaration within this subprogram. 

param String of characters to replace a formal 

parameter. A null parameter is 
specified by consecutive commas. 



No comment can appear between the DEF name and the 
left parenthesis of the actual parameter list. 



A one-to-one correspondence exists between the positions 
of parameters in each list. The first actual parameter 
replaces all occurrences of the first formal parameter 
within the DEF body; the second actual parameter 
replaces all occurrences of the second parameter; and so 
forth. The number of actual parameters must not exceed 
the number of formal parameters: such a condition is 
detected as a fatal error and DEF name substitution is 
suppressed. 
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The number of actual parameters can be fewer than the 
number of formal parameters, however. Any formal 
parameter without a corresponding actual parameter is 
replaced by a null character string. This allows the 
expansion of a DEF name with a variable number of actual 
parameters. 



Each parameter in the actual parameter list is delimited 
by the final parenthesis or a comma. A parameter 
consists of all the characters between successive 
parameter delimiters. 



ADVANCED DEF USAGE 

The following paragraphs discuss three advanced topics 
that involve use of the DEF facility. These are: 

• Parameters 

• DEF expansion 

• Comments 



Parameters 

Any character can appear as part of the actual parameter 
string, but characters with syntax-defining meaning might 
require special coding: 

• Any parameter string that contains a semicolon must 
be bounded by //. The bounding // are removed prior 
to substitution. 

• Any parameter string that contains // must specify //// 
to produce a single it substitution. 

• Any comma within a parameter string is not 
recognized as a parameter delimiter when that 
comma is contained within a balanced set of ( ), < > , 
or [ ] . 



Any parameter string that • contains unbalanced or 
incorrectly nested ( ), < > , or [ ] must be bounded by //. 
The bounding // are removed prior to substitution. 



All DEF and parameter substitution is strictly character 
string substitution. 



For example: 

• Define BYTE and reference it by BYTE(C,5,2**J): 

DEF BYTE(B,J,K) // B<0>A[K] //, 
Expansion produces: 
C<5>A[2**J] 

• Define CHECK with two parameters and a body 
that uses the BYTE specified above: 

DEF CHECK(X.ERROR) it 
IF BYTE(B,1,X) 
EQ 1 THEN GOTO OK;ERROR//; 



Reference: 



CHECK(CALL(3,B),//ERROR=37; 
GOTO FAIL//); 

Expansion: 

IF B<1>A[CALL(3,B)1 EQ 1 THEN 

GOTO OK;ERROR=37;GOTO FAIL; 

Another definition of CHECK with the same 
parameters produces the following expansion, 
given the same reference: 

DEF CHECK(X,ERROR)#IF BYTE 

(B,1,////X////)EQ 1 THEN GOTO OK; 
ERROR//; 

Expansion: 

IF B<1>A[X] EQ 1 THEN GOTO OK; 
ERROR=37;GOTO FAIL; 



DEF Expansion 

When a DEF reference is encountered by the SYMPL 
compiler, the DEF expansion is performed. In order to 
expand the DEF, the compiler repeats the following steps: 



1. The actual parameters of the DEF reference are 
internally defined as DEFs and are substituted for the 
formal parameters. 

For example, the sequence: 

DEF A (B) //B + C#; 
Y = A(2); 

generates the equivalent of the declaration: 

DEF B #2//; 

2. The DEF body is scanned from the left and all DEF 
names encountered are expanded. 

These two steps are repeated until no DEF names remain 
in the sequence. 

Because actual parameters are converted into DEFs, this 
procedure can produce results other than those the user 
intends. For example: 

DEF TWO (X,Y) itX = 1; Y = 2;//; 
DEF ONE (Z) #TWO(Z)#; 

The DEF name reference ONE(//A,B//) is expanded in the 
following steps: 

1. The actual parameter #A,B// is declared as a DEF(Z) 
(the // characters bracketing A, B are discarded): 

DEF Z #A,B#; 

2. The text for ONE replaces the call to ONE: 

ONE(A//,B//) becomes TWO(Z) 

3. The string is searched again from the left. This time, 
the first DEF name encountered is TWO. 
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4. The actual parameters for the reference to TWO are 
declared as DEF bodies equivalent to the formal 
parameter. Since Z has not been expanded yet, there 
is only one actual parameter. It replaces X and a null 
string replaces Y: 

DEF X#Z#; 
DEF Y ##; 



5. The text for TWO replaces the call to TWO: 
TWO(Z) becomes X = 1; Y =2; 



6. The string is searched again from the left; this time, 
the first DEF name encountered is X. The DEF name 
is replaced by the DEF body. This process is 
repeated; the remaining DEF names encountered are 
X, Z, and Y, in that order. The successive stages of 
the expansion are as follows: 

X = 1; Y = 2; 
Z = 1; Y = 2; 
A,B = 1; Y = 2; 
A,B = 1; = 2; 

The final result is not what the user intended since it is 
not valid syntax. 

The body of a DEF with parameters and its actual 
parameters cannot contain the character 1 . This 
character is allowed in DEFs which have no parameters. 



Comments 

Comments are allowed within the parentheses delimiting 
any parameters. Comments also are allowed within the 
DEF body as long as they are delimited by ##, since the 
DEF body itself is delimited by #. Comments are not 
allowed between the DEF name and the left parenthesis 
and they are not allowed between the right parenthesis 
and the # which delimits the character string. Since the 
DEF body is retained in memory during compilation, 
excessive use of unneeded comments within the body 
causes larger compilation field length. 



• Variable attribute specifications are DISJOINT, 
OVERLAP, REACTIVE, INERT. 

• Weak external specification is WEAK. 

• Traceback selection is TRACEBACK. 

Each of the different functions is described separately 
below. 

A CONTROL statement can appear anywhere in a 
program that a statement can appear. It can also appear 
within BEGIN and END enclosing a list of array items, 
based arrays, external declarations, or common 
declarations. 

The effect of a CONTROL statement can be reflected in 
an entire compilation unit. The end of a procedure or 
function does not cancel the statement; only TERM 
cancels a CONTROL statement. 



LISTING CONTROL 

Four forms of the CONTROL statement affect output 
listings. The general format is: 

CONTROL control-word; 

Control-word One of the following: 

EJECT Skip to new page of listing 

LIST Resume normal listing of 

source statements 

NOLIST Suspend normal listing of 

source statements 

OBJLIST List object code | 

EJECT, LIST, and NOLIST cause the compiler to take 
action at the time the statement is encountered among 
the source statements. 

OBJLIST applies to the entire module. Its appearance | 
anywhere within the module affects the entire module. 

The H parameter of the SYMPL compiler call overrides 
CONTROL NOLIST. 



CONTROL STATEMENT 



The CONTROL statement directs the compiler to take 
immediate action. Several different types of control 
words in the statement cause different types of actions: 

• Output listing control specifications are EJECT, 
LIST, NOLIST, OBJLIST. 

• Conditional compilation control words are IFxx, FI, 
ENDIF. 

• Compilation option selections are PACK, PRESET, 
FTNCALL. 

• FOR statement loop specifications are FASTLOOP, 
SLOWLOOP. 

• Memory residence selections are LEVEL1, LEVEL2, 
LEVEL3. 



CONDITIONAL COMPILATION 

The CONTROL IFxx statement can be used to determine 
whether source statements following the CONTROL IFxx 
statement are to be compiled: 

• When the relationship defined in the CONTROL IFxx 
statement tests TRUE, the following source 
statements are compiled. 

• When the relationship defined in the CONTROL IFxx 
statement tests FALSE, the following source 
statements are skipped through a matching 
CONTROL FI or CONTROL ENDIF statement. 

The CONTROL Fxx statement is particularly useful 
because the constants to be tested by the relationship can 
be DEF names or parameters. 
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The form of the CONTROL IFxx statement for conditional 
compilation is: 

CONTROL IFxx constl, const2; 



COMPILATION OPTION SELECTION 

These forms of the CONTROL statement can affect the 
options under which a module is compiled. The format is: 

CONTROL control-word; 



IFxx Relationship of constl 

is to be tested: 



and const2 that 



control- 
word 



IFEQ Constl equal to const2 



FLS 



Constl less than const2 



One of the following: 

PACK Select D option such 

that switches are 
packed two entries to 

a 60-bit word. This 

option requires less 

memory but more 
execution time. 



IFLQ 



Constl less 
to const2 



than or equal 



PRESET 



IFGR Constl greater than const2 



IFGQ Constl greater 
equal to const? 



than or 



IFNQ Constl not equal const2 



constl, Constants to be tested by the 

const2 condition- word relationship. If 

const2 and its preceding comma is 

omitted, is assumed. 



Both constants must be the same 
type; they can be type integer, 
real, Boolean, or character. 



Select P option such 
that items declared 
in named common 
blocks are 

initialized. If the P 
option is not selected 
by the compiler call 
or the CONTROL 
statement, presets 

for common block 
items are ignored. 

Select F option such 
that procedure 

calling sequences are 
compatible with 

FORTRAN; that is, 
they have a word of 
all zeros terminating 
the parameter list. 



The appearance of a CONTROL PACK or CONTROL 
FTNCALL statement anywhere within a module affects 
the entire module. 



FTNCALL 



Character constants can be compared 
only by IFEQ and IFNQ. Leading and 
trailing blanks are significant for 
the comparison such that A is not 
equal to A followed by a blank. 
Character strings may be compared 
only for equality and inequality. 



CONTROL PRESET must appear before the common block 
declarations. 



FOR LOOP CONTROL 

The code generated by FOR loops can be controlled by a 
CONTROL statement in the format: 



Conditional source statements must be bracketed between 
the CONTROL IFxx statement defining the relationship to 
be tested and either one of the following CONTROL 
statements: 

CONTROL FI; 
CONTROL ENDF; 



Conditional statements can be nested. 



If conditional statements are suppressed, syntax and 
semantic checks are not performed; DEF names are not 
expanded; and comment strings are not examined for 
CONTROL FI or ENDIF. In this situation, a semicolon 
does not terminate a comment string. 



Since DEF is not expanded when conditional statements 
are suppressed, DEF cannot be used to generate the 
CONTROL ENDIF for an outer CONTROL Fxx statement. 



CONTROL looptype; 



looptype 



Type of loop to be generated: 



FASTLOOP 



SLOWLOOP 



Test and branch 
within loop, so loop 
must execute at least 
once. The FOR 

statement containing 
such a loop is 
restricted in several 
ways, as discussed in 
section 3. 

Test and branch 
occurs at beginning 
of loop, so loop need 
not execute at all. 
SLOWLOOP is 

assumed in the 

absence of 

FASTLOOP. 
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CONTROL FASTLOOP and CONTROL SLOWLOOP can 
appear anywhere a statement can appear. The statement 
remains in effect until another CONTROL statement for 
loop control is encountered, whether that other statement 
is in the same subprogram or not. 



If the name of a common block is declared in a CONTROL 
LEVEL statement, all items in the block are at the 
specified level. If a based array is declared within a 
common block, its pointer is at the specified level of the 
common block; the array itself can be at a different level. 



Loop control statements can be nested. A FOR statement 
generates a fastloop or slowloop depending on where it 
appears: a nested statement affects the inner loop, but 
not the loop in which it appears. For example, loop I is a 
fastloop and loop L is a slowloop when the following 
appears: 

CONTROL FASTLOOP; 
FOR 1=1 STEP J UNTIL K DO 

BEGIN 

CONTROL SLOWLOOP; 

FOR L=M STEP 1 UNTIL END DO 
X=X+L; 

END #\ LOOP* 



MEMORY RESIDENCE SELECTION 

Common blocks and based arrays can be allocated in 
either of the two types of memory. The format of the 
CONTROL statement to select residence is: 

CONTROL LEVELn name, name, . . .; 

n Memory in which specified common blocks 

or based arrays are to reside. The meaning 
of the level indicated is affected by the 
hardware available. 

For CYBER 70 Model 76 and 7600 and 
CYBER 170 Model 176 computers: 

1 1 Small central memory (SCM) 

residence. 

I 2 Large central memory (LCM) 

residence accessed directly. 

| 3 Large central memory (LCM) 

residence accessed by block 
transfer to SCM. Items at this 
level can only be passed as 
parameters. 

For CYBER 70 Models 71, 72, 73, and 74, 
CYBER 170, Models 171, 172, 173, 174, 175, 
720, 730, 750, 760, and 6000 series systems: 

1,2 Central memory residence 

3 Extended core storage 

residence accessed by block 
transfer to central memory. 
Items at this level can only be 
passed as parameters. 

name Name of a common block or based array. If 
name is the name of a level 3 scalar or 
non-based array, then name or LOC(name) 
can appear as an actual parameter, if name 
is the name of a level 3 based array, then 
P<name> or LOC(P<name>) can appear as 
an actual parameter. Level 3 names cannot 
be used in any other context. 



If the name of a based array is declared in a CONTROL 
LEVEL statement, the array is assumed by the compiler to 
be at the specified level. It is the user's responsibility to 
ensure that the array is in fact at the specified level; 
otherwise, the results are undefined. The pointer to the 
array need not be at the same level. 



ATTRIBUTES OF VARIABLES SPECIFICATION 

The SYMPL compiler attempts to produce efficient 
executable code. Because the compiler cannot always 
determine the precise use of a variable throughout a 
program, it must forego many efficiencies that might 
result in incorrect code in unusual circumstances. The 
programmer, however, can be aware of data use and, 
through the CONTROL statement, can inform the 
compiler of usage characteristics. By classifying 
variables and array items as separate or potentially 
conflicting, the programmer provides the information that 
the compiler needs to decide optimizations. 



The format of the CONTROL statement for specifying 
attributes of variables is: 



CONTROL attribute var,var, , 

or 

CONTROL attribute; 



attribute Attribute of variables in the statement 
list: 



OVERLAP Variables might be 

referenced by more than 
one name, as shown in 
explanation below. 

OVERLAP is the opposite 
of DISJOINT. 

DISJOINT Variables are referenced 
by a single name only. 
DISJOINT is the opposite 
of OVERLAP. 

REACTIVE A given entry word in a 
single array is accessed by 
more than one ehtry in 
the same array using 
different entry positions. 
See explanation below. 
REACTIVE is the opposite 
of INERT. 

Items with declarations 
that show one field 
overlaying another field 
are detected by the 
compiler so that 

REACTIVE need not be 
declared. 
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INERT A given entry word in a 

single array is not 
accessed by more than 
one entry in the same 
array using different 
entry positions. INERT is 
the opposite of 

REACTIVE. 

Variable with the attribute specified. It 
can be an array name, but not an array 
item. 

If the list of variables is omitted, the 
CONTROL statement becomes a global 
switch that affects all subsequently 
declared variables in the same module 
not otherwise referenced by a contrary 
individual specification. 



If no CONTROL statements specifying variable attributes 
appear in a module, the compiler assumes that variables 
are used in a non-optimal way in the module. The 
treatment of variable references in this case is not 
precisely the same as when any of the variable attributes 
are specified. Specifically, the compiler assumes that any 
of the following can occur: 

• Formal parameters can destroy each other. 

• Formal parameters can destroy global variables and 
vice versa. A based array can destroy any other 
based or fixed array, but a fixed array does not 
destroy any other array. 

• All arrays are considered reactive. 

• A procedure call can destroy all common, XDEF and 
XREF variables. 

• Variables do not interfere with each other in any 
other way. 



If any CONTROL statement specifying a variable 
attribute appears in a module, then compilation of the 
module proceeds as though the module were preceded by a 
CONTROL REACTIVE statement and a CONTROL 
DISJOINT statement. The specified statements take 
effect when they are encountered in the source program. 
Use of the CONTROL statement to classify variables is 
recommended because future versions of the compiler 
might require it. 



Overlapping 

Overlapping takes place when a single word in memory is 
referenced as more than one entity in a conflicting way. 
Overlapping takes place when all of the following are true: 



If the compiler knows that two variables are disjoint, it 
can perform optimizations such as elimination of 
redundant code. For example, in the following sequence: 

PROC P (A,B); 



A = Z; 
B = 4; 
Y = A; 

If A and B are both declared to be disjoint, the same value 
can be assigned to both A and Y, thus eliminating the need 
to fetch the value of A before assigning it to Y. On the 
other hand, if procedure P is called by the following call: 

P (V,V); 

then A and B are different names for the same memory 
location. In this case, the value of A must be fetched 
before the store to Y, since the value is changed by the 
statement B = 4. If either A or B were declared disjoint, 
incorrect code would result; both must be declared 
OVERLAP. 

There are three cases in which overlapping references can 
occur. These are: 



• When a procedure with two or more formal | 
parameters is called with the same variable appearing 
twice as an actual parameter. The example above 
shows this case. 



• When a based array points to a fixed array that is I 
used in a conflicting way in the same code. Example: 

ARRAY A; 
ITEM AI; 

BASED ARRAY B; 
ITEM BI; 
P<B> = LOC(A); 
X = AI[2]; 
BI[2] =3; 
Y = AI[2]; 

Since A is based on B, the value of AI 2 must be 
fetched twice, since it is changed by the statement 
BI 2 = 3. 



• When a procedure uses a global variable, and the I 
procedure is called with that variable as an actual 
parameter. Example: 

ITEM A. . . 



B(A); 



• A single word in memory is referenced by more than 
one name. The two names could be two scalars, an 
array and a scalar, or two arrays. 



All the references occur in the same procedure. 



At least one of the references is a store. 



PROC B(C); 
ITEM C, D I; 
BEGIN #B# 
C = 2; 
A = 4; 
D = C; 
END #B# 



I 
I 
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In this example, the procedure B is called with A as an 
actual parameter. Since A is assigned a value in the 
statement A = 4, the value of C is also changed. 
Therefore, when the statement D = C is executed, the 
value of C must be fetched; D cannot be simply set to 2. 
When overlapping is used, all affected variables must be 
declared OVERLAP. In the last example, both A and C 
must be declared OVERLAP. 



Reactive Arrays 

An array is reactive if the same word in the array is 
referred to by more than one item name in a conflicting 
way. For an array to be reactive, all of the fallowing 
must be true: *\ 

• A single word in the array must be referenced by 
more than one item declared in the same array. 

• The items referencing the word must have different 
entry positions. 

• All the references must be in one procedure. 

• At least one of the references must be a store. 

WEAK EXTERNALS 

When a compiled program is loaded before execution, the 
loader searches for a matching entry point for all 
externals and loads the subprogram in which they occur. 
Under some circumstances this can result in the loading of 
subprograms not required for current execution. Through 
using a CONTROL statement to declare an external weak, 

Ithe programmer can specify that the external is not 
necessarily to be satisfied. This is useful when generating 
capsules for use by the Fast Dynamic Loader. See the 
Loader Reference Manual for more information. 

A weak external does not cause a search for the matching 
entry point. If the program that contains the entry point 
is loaded for some other reason, however, that weak 
external is linked. There is no way for an executing 
program to tell if the external has actually been loaded. 
If it has not been loaded an arithmetic mode error results. 

When a weak external is satisfied, it is linked as if it were 
a normal external. If it is not satisfied, no error message 
is produced. 

The format of the CONTROL statement specifying a weak 
external is: 

CONTROL WEAK name, name, . . . ; 

name Name of array, based array, function, item, 
label, procedure, or switch. 

Name must have been previously declared as 
external by using XREF. 



TRACEBACK FACILITY 

SYMPL uses standard calling sequences for transferring 
control to a procedure or subroutine of another language. 
In this sequence, register Al contains the address of a 
parameter list and each parameter to be passed occupies 
one word of the list. Execution of an RJ instruction to 
the entry point links the programs. For debugging 
purposes, SYMPL provides an option for traceback. 



The format of the CONTROL statement for tracing 
purposes is: 

CONTROL TRACEBACK; 



The appearance of this statement anywhere within the 
module selects the option for the entire module. 
Traceback code is generated automatically when the K 
parameter (points-not-tested) of the SYMPL compiler call 
is used. 

The traceback code generated for procedures and 
functions is compatible with traceback of FORTRAN. To 
complete FORTRAN compatibility, the F parameter of 
the SYMPL compiler call must also be specified. Code 
generated by a SYMPL calling program is not compatible 
with FORTRAN traceback, however. 

Traceback code generated is as follows: 

• If the procedure of function has a single entry, the 
generated constant word is: 

VFD 42/0Hname,l 8/ept 

name Subprogram name left-justified and 
blank-filled or truncated to seven 
characters. 

ept Address of subprogram entry point. 

• If the procedure or function has multiple entries, the 
generated constant word is: 

VFD 42/0Hname,18/temp 

name Subprogram primary entry point. 

temp Address of a copy of the return 
information taken from the most recent 
entry point. 

• The return jump instruction for the subprogram call is 
forced upper. The lower 30 bits of the instruction 
contain: 

VFD 12/line,18/trace 

line Approximate source line number of call, 

modulo 4096. 

trace Address of the constant word described 
above for the innermost subprogram 
containing the call statement. 



SYMPL TEXTS 

If the same declarations apply to data in more than one 
SYMPL compilation unit, the declarations can be compiled 
once as a text and referenced from each of the units. 
Thus, instead of compiling the declarations once for each 
compilation unit using them, the user can compile them 
one time only. Another advantage of this feature is that 
it ensures that data that is identical in different modules 
is declared in exactly the same way in each module. If 
there are many such declarations, placing them in texts 
saves compilation time. 

SYMPL texts are created by the CONTROL STEXT 
statement and used by the USETEXT statement. 
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Text Creation 

The format of the CONTROL statement specifying text 
creation is: 

CONTROL STEXT; 

The statement can only appear in a program or a 
procedure with no formal parameters. It cannot appear in 
a function. Its appearance within a compilation unit 
results in creation of a text including declarations 
occurring anywhere within the unit. The name of the text 
is the program or procedure name, truncated to seven 
characters if necessary. 

The compiled text is written as an overlay to the file 
specified by the B option of the SYMPL control 
statement. Any executable statements occurring in the 
compilation unit are not compiled. The presence of 
executable code suppresses text generation. 
Nevertheless, the program or procedure must be 
syntactically complete; that is, it must include a null 
executable statement. 

Embedded procedures and functions are not allowed in a 
text-generating compilation unit, nor are XDEF 
declarations. LABEL and SWITCH declarations are 
diagnosed but are not included in the text record. Presets 
included in declarations have no effect. 

The CONTROL statement options FASTLOOP, 
SLOWLOOP, PRESET, PACK, FTNCALL, and 
TRACEBACK have no effect on a text module. Variable 
attribute specifications (CONTROL REACTIVE, INERT, 
OVERLAP, DISJOINT) apply only to the text module, and 
not to other modules in the compilation. Entities that can 
be validly declared in a text module include scalars, 
arrays, based arrays, array items, status lists, and 
common blocks. XREF declarations are valid, but XDEF 
declarations are not allowed. For a status item, the 
associated status declaration must occur before the item 
declaration or else in a SYMPL text used in compilation of 
the current text. All references to DEF names in a text 
module result in DEF body replacement at text generation 
time. Redefinition in a module using the text module has 
no effect. For example: 

DEF UP #12#; 

ARRAY A[1:UP]; 

Array A is always length 12 even if UP is redefined in 

a module that uses the text module being defined. 

Presets are ignored in a text unit. Previously compiled 
texts can be used to generate new text overlays. See the 
discussion of USETEXT. 



The USETEXT statement must begin in column 1 and 
cannot be continued onto another source line. Multiple 
USETEXT statements are allowed. One or more blanks 
are required between USETEXT and the first text name, 
and commands are required between text names. The 
USETEXT statement must appear before the first 
statement of the compilation unit (PRGM, PROC, or 
FUNC statement) but after any OVERLAY statement. A 
module can contain more than one USETEXT statement; a 
maximum of 64 texts can be specified for any module. If | 
no USETEXT directive appears, no SYMPL text is 
available during compilation. 



When the module containing the USETEXT statement is 
compiled, the declarations in the text module behave as 
though they were physically present immediately after the 
PRGM, PROC, or FUNC statement. 



A text module can be compiled using a previously 
compiled text module (that is, both the USETEXT 
statement and the CONTROL STEXT statement can 
appear in the same module). In this case, however, only 
the declarations from the source input module, not those 
from the previously compiled text module, appear in the 
new SYMPL text. 



When a text contains a status item associated with a 
status list in another text, the name of the text containing 
the status list must precede the name of the text 
containing the status item in the USETEXT statements. 



If the compiler encounters portions of the same common 
block in more than one SYMPL text, a fatal diagnostic is 
issued. 



For a SYMPL text on a library (specified by the Z control 
statement option), the compiler obtains 20000b words of 
central memory before calling the loader to load the 
overlay. After the load, any unused field length is 
relinquished. If 20000o words is not sufficient, the user 
must increase the field length through an RFL control 
statement. SYMPL does not reduce field length below the 
amount specified by the RFL control statement. 



TERM STATEMENT 

The TERM statement signals the end of a compilation 
unit. It must be the last statement of a program (or 
subprogram being compiled separately). 



Text Usage 

To specify SYMPL texts to be used in compiling a module, 
the following statement is used: 

USETEXT text^ . . ., text n 

text Name of a SYMPL text on a file specified by 
the Y control statement option or a library 
specified by the Z control statement option 
(section 6). 



The format of the TERM statement is: 
TERM 

No semicolon follows TERM. 



Once the compiler encounters TERM, all further 
statements on the card are skipped. 
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COMPILER CALL AND OUTPUT LISTINGS 



COMPILER CALL 

The SYMPL compiler is called with a control statement 
that conforms to operating system syntax. The control 
statement cannot be continued. 

More than one program or subprogram can be compiled by 
a single call to the compiler as long as they follow each 
other on the source file without any file boundaries 
between them. The compiler recognizes a TERM 
statement as the end of a module and ignores any further 
statements on the same card or card image. Compilation 
resumes with the next card, which is assumed to be the 
start of another program or subprogram. A comment can 
precede a program or subprogram header. 

If the first card image encountered at the beginning of a 
compilation unit contains the characters OVERLAY in 
columns 1 through 7, followed by (1,1, origin), the module 
is treated as if an LCC OVERLAY statement appeared in 
a COMPASS program. 

The name of the compiler call statement is SYMPL. If all 
default parameters are selected, the compiler call appears 
as: 

SYMPL. 

A variety of compilation options can be specified in a 
parameter list following the compiler call name. If the 
name of the source input file is NEWONE, for example, 
the compiler call appears as: 

SYMPL,I=NEWONE. 

AH compilation parameters are optional and can appear in 
any order. Parameters are listed below in alphabetical 
order. 



D PACK SWITCHES 

omitted Generate one word for each switch. 

D Generate one word with two switch points, 

reducing the size of generated code but 
increasing execution time. Produces the 
same result as CONTROL PACK within a 
program. 



DB CYBER INTERACTIVE DEBUG 

omitted Do not generate code to allow CYBER 

Interactive Debug interface, unless job is in 
debug mode (DEBUG, ON control statement 
has been executed). 

DB Generate code to allow CYBER Interactive 

Debug interface. 

DB=0 Do not generate code to allow CYBER 

Interactive Debug interface, even if job is in 
debug mode. 

Selection of this option automatically selects the W 
control statement option and sets CONTROL 
TRACEBACK for the entire program. 



E COMPILE $BEGIN/$END STATEMENTS 

omitted Do not compile source statements bracketed 

between $BEGIN and $END. 

E Compile source statements bracketed 

between $BEGIN and $END. 



B BINARY CODE FILE 

omitted 



Write binary output from compilation to file EL ERROR LEVEL 

LGO. 



B Write binary output from compilation to file 

LGO. 

B=0 Suppress generation of binary code. 

B=lfn Write binary output from compilation to file 

lfn, where lfn is one through seven letters or 
digits beginning with a letter. 



All errors of the specified level, and errors of higher 
levels, are listed on the output listing. The levels are 
listed here in ascending order. 



omitted 



EL 



EL=D 



C CHECK SWITCH RANGE 

omitted Do not generate code to check range of 

switch references. Any reference to an 

undefined switch value produces either an 
endless loop, a mode error, or a wild jump. 

C Generate code to check range of switch 

references. During execution any reference EL=T 

to an out-of-range switch or an unspecified 
switch value produces a diagnostic and a 
program abort. 



If ET is omitted or ET=W, F, or C, list 
diagnostics of level W and higher. If ET=D, 
list diagnostics of level D and higher. F 
ET=T, list diagnostics of level T and higher. 

Same as EL=F 

List system- dependent diagnostics and T, W, 
F, and C diagnostics. System-dependent 
diagnostics are produced for usages that, 
while syntactically correct, might not 
produce correct results on all machines, or 
might not be supported by future versions of 
the compiler. 

List trivial diagnostics and W, F, and C 
diagnostics. Trivial diagnostics result from 
usages that are syntactically correct but 
questionable. 



60496400 E 



6-1 



EL=W 



EL=F 



List warning diagnostics and F and C 
diagnostics. Warning diagnostics result from 
usages that are syntactically incorrect, but 
from which the compiler has been able to 
recover by making an assumption about what 
was intended. 



List all fatal diagnostics and C diagnostics. 
Fatal diagnostics result when the compiler 
cannot resolve a syntactic or semantic 
error. No code is generated for the 
statement causing the error; compilation 
resumes with the next statement. 



H 



List all source statements, regardless of 
CONTROL NOLIST statements within the 
program. 



I SOURCE INPUT FILE 

omitted Compile card images from file INPUT. 

I Compile card images from file COMPILE 

I=lfn Compile card images from file Ifn. 



EL=C 



ET 



List only catastrophic errors. Catastrophic 
errors are those which cause immediate - 
termination of compilation, and an abort of 
the job step. 



ERROR TERMINATION 



If the ET option indicates error termination for a certain 
level of error, and an error of that level or higher level 
occurs, the job step aborts to an EXIT(S) control 
statement (under NOS/BE) or an EXIT control statement 
(under NOS) when compilation finishes. For an 
explanation of the error levels, see the EL parameter. 
The ET=T option replaces the A option. 

omitted Same as ET=C. 

ET Same as ET=F. 

ET=D Abort job step if errors of level D or higher 

occur. 

ET=T Abort job step if errors of level T or higher 

occur. 

ET=W Abort job step if errors of level W or higher 

occur. 

ET=F Abort job step if errors of level F or higher 

occur. 

EF=C Abort job step if errors of level C occur. 



F FORTRAN CALLING SEQUENCE 

omitted Do not compile a word of all zeros at the 

end of a parameter list. 



Compile a word of all zeros at the end of 
each parameter list as required by the 
FORTRAN calling sequence. Produces the 
same result as a CONTROL FTNCALL 
statement within a program. 



K POINTS-NOT-TESTED 

omitted Do not generate points-not-tested code. 

K Generate an RJ to the points-not-tested 

interface routine SYMCK$ after every label 
and conditional jump. This will enable the 
user to find all paths in the executable code 
and determine which of the paths are 
exercised. Also, generate traceback code. 
The user must supply the routine SYMCK$. 



L LISTING FILE 

Any O, R, or X parameter must be concatenated with any 
L parameter, as in: LXOR=PRINTIT. 

omitted If O, R, or X are not specified, write source 

statement listing and diagnostics to file 
OUTPUT. If O, R, or X are specified, 
suppress source listing. 

L Write source statement listing and 

diagnostics to file OUTPUT. 

L=l Write summary of resources used to file 

OUTPUT. 

L=0 Suppress all listing output, including that 

selected by O, R, and X; list only diagnostics. 

L=lfn Write source statement listing and 

diagnostics to file lfn, with lfn being one 
through seven letters or digits beginning 
with a letter. 



N CROSS-REFERENCE UNREFERENCED ITEMS 

omitted List only referenced items on the cross- 

reference map selected by the R parameter. 



N List referenced and unreferenced data items 

on the cross-reference map selected by the 
R parameter. 



H LIST ALL SOURCE STATEMENTS 

omitted List source statements according to 

CONTROL NOLIST and CONTROL LIST 
statements within the program. 



For SYMPL text generation, N is selected by default. 

When a SYMPL text is used, unreferenced variables 
declared in the text are not listed, regardless of the N 
option. 
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O LIST OBJECT CODE 

Any L, R, or X parameter must be concatenated with any 
O parameter, as in: OL=LIST/35/45. 



omitted Do not list binary object code. 



0=st/end List binary object code generated by range 
of source statements indicated: 

st Number of first source statement 

whose object code is to be listed. 
Default is 0. 

end Number of last source statement 

whose object code is to be listed. 
Default is last statement in 
program. 



If only one number appears after =, it is 
presumed to be end. The line numbers 
appear to the left of the source images on 
the listing. 



0=lfn/st/end 



List binary object code from specified 
source statements on file lfn, where Ifn is 
one through seven letters or digits beginning 
with a letter, st and end are as above. 
Because the compiler might reorder code for 
optimization, the user should specify a range 
of lines slightly larger than that actually 
desired. 



S EXECUTION LIBRARY 

omitted 



Compile LDSET tables with references to 
these libraries: 



SYMLIB/FORTRAN for 
NOS/BE operating systems 



SYMIO/FORTRAN 
operating system 



for 



NOS and 



SCOPE 



S=0 
S=lib 



Suppress LDSET table generation. 

Generate LDSET tables with references to 
library lib. Multiple libraries can be 
specified with slashes between library 
names, as in: S=AAA/MMM/TTT. A 
maximum of seven libraries can be specified. 



T SYNTAX CHECK 

omitted Check syntax and generate binary code. 

T Check syntax, but do not generate binary 

code. Nullifies any B, O, R, or X 
parameters. 

W SINGLE STATEMENT CODE GENERATION 

omitted 



W 



Generate object code with multiple source 
statement intermixed. 

Generate object code that maintains a close 
correspondence with its source statement. 
While the resulting object code might be less 
efficient, it is useful for debugging. 



P PRESET COMMON 

omitted 



Data items in common blocks are not to be 
initialized. 



Initialize data items in common blocks 
according to the preset values in the data 
declarations. Produces the same result as a 
CONTROL PRESET statement within a 
program. 



R LIST CROSS-REFERENCE MAP 

Any L", O, or X parameter must be concatenated with any 
R parameter, as in: RX=SHOW. 



omitted 



R=lfn 



Do not list cross-reference table and 
common blocks. 



List cross-reference table and common 
blocks on file OUTPUT. 



List cross-reference table and common 
blocks on file lfn, where lfn is one through 
seven letters or digits beginning with a 
letter. 



X LIST STORAGE MAP 

Any L, R, or O parameter must be concatenated with any 
X parameter, as in: RX=OUTPUT. 

omitted Do not list storage map or common blocks. 

X List storage map and common blocks on file 

OUTPUT. 

X=lfn List storage map and common blocks on file 

lfn, where lfn is one through seven letters or 
digits beginning with a letter. 



Y SYMPL TEXT INPUT FILE 

omitted Do not read any SYMPL text from a file. 

Do not read any SYMPL text from a file. 



Y=0 
Y 

Y=lfn 



Read SYMPL texts named in the USETEXT 
statement from the file SYMTEXT. 

Read SYMPL texts named in the USETEXT 
statement from the file lfn. 



The Y parameter can be specified up to seven times. 
While processing the Y parameter, the compiler reads the 
specified file and makes a table of all texts encountered 
and their position on the file. While processing the 
USETEXT statement, texts are accessed randomly. 
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Files specified by the USETEXT statement are searched 
for first among the files specified by Y parameters, from 
left to right, and then in the library specified by the Z 
parameter. The files specified by the Y parameter must 
be sequential files residing on random access devices. A 
maximum of 64 texts can reside on all the files specified 
by Y parameters. 



Z SYMPL TEXT INPUT LIBRARY 

omitted Do not read any SYMPL text from a library. 

Z=0 Do not read any SYMPL text from a library. 

Z Read SYMPL texts named in the USETEXT 

statement from the job's current global 
library set. 



Z=lib Read SYMPL texts named in the USETEXT 

statement from the library named lib. The 
library can be either a user library or a 
system library in the job's current global 
library set. 

The Z parameter cannot be specified more than once. The 
search order for SYMPL texts is explained under the Y 
parameter. The Z parameter is not valid under NOS 1. 



OUTPUT LISTINGS 

Figure 6-1 shows a SYMPL procedure that adds a new 
entry to a linked list. It is a separate compilation and is 
linked into the proper context by the loader. 



FUNC ADDITEM (INVLIST, 
BEGIN #ADDITEM# 



(LISTPTR), (PARTNUM), DESCR); 



FUNC 
PURPOSE -- 

INPUT 

OUTPUT -- 



ADDITEM 



IS 



ADD A NEW PART TO THE INVENTORY LIST. THE PART 
ADDED IN PART-NUMBER ORDER, AND THE BASIC 
INFORMATION FOR THE PART IS FILLED IN THE NEW ENTR 
THE PARAMETERS GIVE THE ADDRESS OF THE INVENTORY L 
THE START OF THE NUMERIC LIST, AND A DESCRIPTION 
THE NEW ENTRY. 

THE INVENTORY LIST IS UPDATED WITH A NEW ENTRY. 
FUNCTION RESULT IS A POINTER TO THE NEW ENTRY. 



tt 
tt 
tt 
tt 
tt 
y. tt 

IST,# 
F tt 

tt 
tt 
tt 
tt 
tt 



ITEM DESCR C(20); 

ITEM INDX I; 

ITEM LISTPTR I; 

ITEM NEWENTRY I; 

ITEM PARTNUM I; 



# DESCRIPTION OF THE NEW PART tt 

tt ARRAY POINTER, USED FOR SEARCH ft 

ft POINTER TO START OF INVENTORY LIST# 

ft POINTER TO NEW LIST ENTRY ft 

it PART-NUMBER OF NEW PART ft 



ARRAY INVLIST Cn?4nn:i S(3); ft INVENTORY LIST ARRAY 

BEGIN 

ITEM INVSPARTNUM 

ITEM INVSLINK 

ITEM INVSDESCR 

END 
XREF FUNC GETSPACE; 



K 0, 0,24) 
I( 0,42,18) 
CC 1, 0,20) 



tt INVENTORY PART-NUMBER ft 
ft PTR TO NEXT SEQUENTIAL ENTRY ft 
ft DESCRIPTION OF THE PART ft 



ft RETURNS WORDS IN LISTSPACE 



FOR INDX = LISTPTR 



ft START SEARCHING THE LIST 



WHILE INVSLINKCINDX3 LS PARTNUM ft FIND NUMERIC POSITION 



DO 



AND INVSLINKCINDXH NQ 
) 

BEGIN 

INDX = INVSLINKCINDX]; 
END 



ft ...OR END OF LIST 



ft GET NEXT SEQUENTIAL ENTRY 



NEWENTRY = GETSPACEU); ft GET 4 WORDS FOR NEW LIST ENTRY ft 

INVSLINKCNEWENTRYD = INVSLINKCINDXD; ft LINK NEW ENTRY IN LIST ft 

INVSLINKTINDX: = NEWENTRY; tt LINK OLD ENTRY TO NEW ONE ft 

INVSPARTNUMCNEWENTRYI = PARTNUM; tt NOW FILL IN NEW INFORMATION tt 
INVCDESCRCNEWENTRYl = DESCR; 



ADDITEM = NEWENTRY; 



ft RETURN ADDR OF THE NEW ENTRY 



END «ADDITEM# 

TERM 



Figure 6-1. Sample Source Program 
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A job deck for syntax analysis for the function would 
appear as: 

jobcard. 

any accounting statement. 

SYMPL.T. 

7/8/9 

all SYMPL source statements 

6/7/8/9 

Output from a compilation normally includes the source 
statement listing and a diagnostic summary. Only the 
diagnostics specified with the EL parameter on the 
SYMPL control statement are printed. The compiler also 
issues a list of page numbers that contain diagnostic 
messages. Only diagnostics that are actually printed are 
included in this list. 

Any storage map, cross-reference map, or object listing 
follows on a separate page of the listing. The last 
information shown summarizes the number of words of 
memory and the time required for compilation. The 
parameters of the compiler call used for compilation, 
whether selected explicitly or implicitly, are also shown. 

A large map might appear on the output listing of two or 
more parts. Both must be examined since references to 
items can appear in both parts. 



| STORAGE MAP 

The storage map is a dictionary of all programmer- 
created declarations in the source program. It is selected 
by the X parameter of the compiler call. Figure 6-2 
| shows the storage map from the subprogram ADDITEM. 
Information appearing on the map includes: 



®M 



Mode of data representation 



©NAME 
©TYPE 



First ten characters only 
declarations are printed. 



of 



Defines the name as one of the 
following types: 



ARYITM 


Array item 


COMMON 


Common block 


ITEM 


Item 


FUNC 


Function 


PROC 


Procedure 


LABEL 


Label 


B.ARRAY 


Based array 


ARRAY 


Array 


PROGRM 


Program 



B 


Boolean 


C 


Character 


I 


Integer 


P 


Parallel (arrays only) 


R 


Real 


S 


Status (Serial if type is array 




or based array) 


U 


Unsigned integer 


X 


External (if type is PROC) 


Y 


Weak external 



0LOC 



©FBIT 
©NUM 



Octal address relative to start of 
routine; if followed by C, LOC is 
relative to start of common block. If 
type is ARYITM, LOC refers to first 
occurrence of item. If followed by an 
X, the name is an external. If followed 
by a Y, the name is a weak external. 



First bit, numbered from to 59, left to 
right. 



Number of bits; if MODE is C, number 
of bytes. 



CROSS-REFERENCE MAP 

The cross-reference map lists the properties of each 
declaration and shows the source line number at which the 
entity was declared or referenced. It is selected by the R 
parameter of the compiler call. 



Figure 6-3 shows the cross-reference map from 
subprogram ADDITEM. Since the subprogram was 
compiled with the N parameter of the SYMPL compiler 
call, items that were declared, but not referenced, also 
appear on the map. Information appearing on the map 
includes: 



(T) NAME First ten characters only 

declarations are printed. 



of 



ADDITEM 


FUNCTION 






* STORAGE MAP * 








SYMPL 1.4 


(79267) 79/10/24.09.41.14 




PAGE 2 


© ® 


<D@ 


© 


© 


















NAME;C(1t)> TYPE 


M LOC 


FBIT 


NUM 


NAME:C<10) TYPE 


M 


LOC 




FBIT NUM 


NAME:CU0> TYPE M LOC 


FBIT 


NUM 


ADDITEM FUNC 


I 11 





«o 


DESCR ITEM 


C 







20 


GETSPACE FUNC I OX 





60 


INDX ITEM 


I 1 





60 


INVLIST ARRAY 


S 




5 




INVJDESCR ARYITM C 1 





20 


INVSLlNK ARYITM 


I Q 


42 


18 


INVSPARTNU ARYITM 


I 







24 


LISTPTR ITEM I 2 





60 


NEUENTRY ITEM 


I 3 





60 


PARTNUM ITEM 


I 




4 


60 









Figure 6-2. Storage Map 
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ADDITEM 


FUNCTION 




* CROSS 


REFERENCE * 




SYMPL 1.4 (79267) 


79/10/24. 09.41.14. 


PAGE 3 


© 


® 


® 


® 


© 


© 










NAMEiCdO) 


TYPE 


h 


DEFINED 


SCOPE 


SET/USED/ATTRIBUTE 


- *=USED,A«ATTRIBUTE 






ADDITEM 


FUNC 




1 


(GLOBAL) 


48 










DESCR 


ITEH 




19 


AODITEM 


46* 










GETSPACE 


FUNC 




' 31 X 


ADDITEM 


42* 










INOX 


ITEM 




20 


AODITEM 


35* 


36* 


39* 43* 44* 


34 39 




INVSDESCR 


ARYITM 




29 


ADDITEM 


46 










INVSLINK 


ARYITN 




28 


ADDITEM 


35* 


36* 


J9* 43* 43 


44 




INVtPARTNU 


ARYITM 




27 


ADDITEM 


45 










LISTPTR 


ITEM 




21 


ADDITEM 


34* 










NEUENTRY 


ITER 




22 


ADDITEM 


43* 


44* 


45* 46* 48* 


42 




PARTNUM 


ITEH 




23 


ADDITEM 


35* 


45* 









Figure 6-3. Cross-Reference Map 



(|)TYPE 



©M 



Defines the name as one of the 


following types: 




ARYITM 


Array item 


COMMON 


Common block 


ITEM 


Item 


FUNC 


Function 


PROC 


Procedure 


LABEL 


Label 


B. ARRAY 


Based array 


STSCON 


Status constant 


DEFINE 


DEF 


STSLST 


Status list 


PROGRM 


Program 


ARRAY 


Array 


Mode of data representation 


B Boolean 




C Character 


I Integer 




P Parallel (arrays only) 


R Real 




S Status (serial if type is array) 



DEFINED 



(D SCOPE 



© SET/USED/ 

ATTRIBUTE 



U Unsigned integer 

X External (if type is PROC) 

Y Weak external 

Line number in source listing or 
name of SYMPL text where 
declaration is defined; if followed 
by C, declaration is in common 
block. If followed by X, the name 
is an external. If followed by Y, it 
is a weak external. 

Name of outermost procedure 
within which declaration occurs; if 
type is STSCON, SCOPE is the 
name of the status list of which the 
item is a member. 

Source listing line numbers of 
references to NAME, * indicates 
use as other than left side of the 
replacement statement. An A 
indicates appearance in attribute 
specification, such as XDEF. 
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STANDARD CHARACTER SETS 



CONTROL DATA operating systems offer the following 
variations of a basic character set: 

CDC 64-character set 
CDC 63-character set 
ASCII 64-character set 
ASCII 63-character set 



The set in use at a particular installation is specified when 
the operating system is installed. The standard character 
sets are shown in table A-l. 

Depending on another installation option, the system 
assumes an input deck has been punched either in 026 or 
029 mode, regardless of the character set in use. Under 
NOS, the alternate mode can be specified by a 26 or 29 



punched in columns 79 and 80 of any 6/7/9 card. In 
addition, 026 mode can be specified by a card with 5/7/9 
multipunched in column 1, and 029 mode can be specified 
by a card with 5/7/9 multipunched in column 1 and a 9 
punched in column 2. 

Under NOS/BE, the alternate mode can be specified by a 
26 or 29 punched in columns 79 and 80 of the job 
statement or any 7/8/9 card. The specified alternate 
mode remains in effect throughout the job unless reset by 
another alternate mode specification. 

Graphic character representation on a terminal or printer 
depends on the installation character set and the device 
type. CDC graphic characters in table A-l are applicable 
to BCD terminals. ASCII subset graphic characters are 
applicable to ASCII-CRT and ASCII-TTY terminals. 
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TABLE A-l. STANDARD CHARACTER SETS 



SYMPL 


Display 
Code 
(octal) 


CDC 


ASCII 


Graphic 


Hollerith 
Punch 
(026) 


External 
BCD 
Code 


Graphic 
Subset 


Punch 
(029) 


Code 
(octal) 


: (colon) 


00 f 


: (colon) t " 


8-2 


00 


: (colon) tt 


8-2 


072 


A 


01 


A 


12-1 


61 


A 


12-1 


101 


B 


02 


B 


12-2 


62 


B 


12-2 


102 


C 


03 


C 


12-3 


63 


C 


12-3 


103 


D 


04 


D 


12-4 


64 


D 


12-4 


104 


E 


05 


E 


12-5 


65 


E 


12-5 


105 


F 


06 


F 


12-6 


66 


F 


12-6 


106 


G 


07 


G 


12-7 


67 


G 


12-7 


107 


H 


10 


H 


12-8 


70 


H 


12-8 


110 


1 


11 


I 


12-9 


71 


1 


12-9 


111 


J 


12 


J 


11-1 


41 


J 


11-1 


112 


K 


13 


K 


11-2 


42 


K 


11-2 


113 


L 


14 


L 


11-3 


43 


L 


11-3 


114 


M 


15 


M 


11-4 


44 


M 


11-4 


115 


N 


16 


N 


11-5 


45 


N 


11-5 


116 





17 


O 


11-6 


46 


O 


11-6 


117 


P 


20 


P 


11-7 


47 


P 


11-7 


120 


Q 


21 


Q 


11-8 


50 


Q 


11-8 


121 


R 


22 


R 


11-9 


51 


R 


11-9 


122 


S 


23 


S 


0-2 


22 


S 


0-2 


123 


T 


24 


T 


0-3 


23 


T 


0-3 


124 


U 


25 


U 


0-4 


24 


U 


0-4 


125 


V 


26 


V 


0-5 


25 


V 


0-5 


126 


w 


27 


w 


0-6 


26 


w 


0-6 


127 


X 


30 


X 


0-7 


27 


X 


0-7 


130 


Y 


31 


Y 


0-8 


30 


Y 


0-8 


131 


z 


32 


z 


0-9 


31 


z 


0-9 


132 





33 








12 








060 


1 


34 


1 


1 


01 


1 


1 


061 


2 


35 


2 


2 


02 


2 


2 


062 


3 


36 


3 


3 


03 


3 


3 


063 


4 


37 


4 


4 


04 


4 


4 


064 


5 


40 


5 


5 


05 


5 


5 


065 


6 


41 


6 


6 


06 


6 


6 


066 


7 


42 


7 


7 


07 


7 


7 


067 


8 


43 


8 


8 


10 


8 


8 


070 


9 


44 


9 


9 


-11 


9 


9 


071 


+ 


45 


+ 


12 


60 


+ 


12-8-6 


053 


- 


46 


~ 


11 


40 


* 


11 


055 


* 


47 


# 


11-8-4 


54 


11-8-4 


052 


/ 


50 


/ 


0-1 


21 


/ 


0-1 


057 


( 


51 


( 


0-8-4 


34 


( 


12-8-5 


050 


) 


52 


) 


12-8-4 


74 


) 


11-8-5 


051 


$ 


53 


$ 


11-8-3 


53 


$ 


11-8-3 


044 


= 


54 


= 


8-3 


13 


= 


8-6 


075 


blank 


55 


blank 


no punch 


20 


blank 


no punch 


040 


, (comma) 


56 


, (comma) 


0-8-3 


33 


, (comma) 


0-8-3 


054 


. (period) 


57 


. (period) 


12-8-3 


73 


. (period) 


12-8-3 


056 


# 


60 


= 


0-8-6 


36 


# 


8-3 


043 


[ 


61 


[ 


8-7 


17 


t 


12-8-2 


133 


] 


62 


1 


0-8-2 


32 


1 + , 


11-8-2 


135 




63 


%" 


8-6 


16 


% ft 


0-8-4 


045 


" (quote) 


64 


J* 


8-4 


14 


" (quote) 


8-7 


042 




65 


r~ 


0-8-5 4 


35 


(underline) 


0-8-5 ... 


137 




66 


V 


11-0 or 11-8-2 1tt 


52 


I 


12-8-7 or 11-0 TTT 


041 




67 


A 


0-8-7 


37 


& 


12 


046 




70 


t 


11-8-5 


55 


' (apostrophe) 


8-5 


047 




71 


J 


11-8-6 


56 


? 


°- 8 - 7 ttt 
12-8-4 or 12-0 TTT 


077 


< 


72 


< 


12-0 or 12-8-2 m 


72 


< 


074 


> 


73 


> 


11-8-7 


57 


> 


0-8-6 


076 




74 


< 


8-5 


15 


@ 


8-4 


100 




75 


> 


12-8-5 


75 


\ 


0-8-2 


134 




76 


-1 


12-8-6 


76 


— (circumflex) 


11-8-7 


136 


; (semicolon) 


77 


; (semicolon) 


12-8-7 


77 


; (semicolon) 


11-8-6 


073 


Twelve zero bits at the end of a 60-bit word in a zero byte record are an en 


d of record mark rather than two col 


ons. 


t ' In installations using a 63-graphic set, display code 00 has no associated graphic 


or card code; display code 63 is the C( 


)lon (8-2 punch). 


The % graphic and related card codes do not exist and translations yield a blanl 


c (55g). 




t^The alternate Hollerith (026) and ASCII (029) punches are accepted for input c 


nly by some driver software. 
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DIAGNOSTICS 



B 



The SYMPL compiler recognizes errors in SYMPL syntax. 
An applicable diagnostic message is printed on OUTPUT 
immediately preceding the line on which the error was 
detected. In addition, the total number of diagnostic 
messages is printed along with a detailed listing of each 
message number and the condition that caused the error. 
A list of page numbers that contain diagnostic messages is 
printed at the end of the error summary. 

The compiler aborts when compilation cannot be 
continued for one of the following reasons: 

• Error in the SYMPL control statement. The following 
dayfile message is issued: 

PARAMETER n IN ERROR 

• A large number of syntax errors has been detected. 

• A user syntax error occurs that is discovered too late 
for the compiler to recover, for example, a zero 
value length for a B function. 

• Internal compiler error. 

When the compiler aborts, a C level error message in the 
following form is issued to the file specified by the L 
control statement parameter: 

SYMPL COMPILER ERROR nnnn — error text 



where nnnn is the error number, 
start at 800. 



Compiler abort messages 



Other dayfile messages that might be produced include: 



-SYMPL- INSUFFICIENT FL 

-SYMPL- INSUFFICIENT SCM FL 

-SYMPL- INSUFFICIENT LCM FL 

-SYMPL- EMPTY INPUT FILE 

-SYMPL- COMPILER ABORT 

-SYMPL- BAD EXP CALL TO FTN 

-SYMPL- BAD LOADER CALL 

-SYMPL- cccccccccc COMPILED cp sees 

-SYMPL- ERRORS IN TEXT GENERATION 

-SYMPL- SYMPL TEXT NOT WRITTEN 

-SYMPL- SYMPL TEXT NOT FOUND 

-SYMPL- MORE THAN 7 Y PARAMETERS 

-SYMPL- MORE THAN 1 Z PARAMETER 

-SYMPL- MORE THAN 64 SYMPL TEXTS ON Y FILES 

-SYMPL- MORE THAN 64 TEXTS ON USE TEXT 

-SYMPL- Y FILE NOT ON RANDOM DEVICE 

-SYMPL- SOURCE ERRORS-ABORT REQUESTED 



Table B-l lists the message number and text of the 
compilation diagnostics. The error levels listed with the 
diagnostics are explained under the EL parameter in 
section 6. 



TABLE B-l. COMPILER ERROR MESSAGES 



Error 
Number 


Error 

Level 


Message 


Significance 


Action 


1 


W 


LONG IDENTIFIER - FIRST 12 
CHARACTERS USED 


Identifier was truncated 
to 12 characters. It may 
duplicate another 
identifier. 


Verify that the identifier 
is unique within the first 
12 characters. 


2 


F 


SYMPL TEXT CONTAINS EMBEDDED 
-PR0C- OR -FUNC- 


Self-explanatory. 


Correct error and 
recompile. 


3- 


F 


UNDECLARED IDENTIFIER USE 
DELETED 


An identifier was refer- 
enced but not declared. 


Check for misspelled iden- 
tifier or supply declara- 
tion for the diagnosed 
identifier. Check for 
errors in declaration if 
error 21 was issued. 


4 


F 


ILLEGAL OCTAL OR HEX CONSTANT 


Octal constants can 
contain digits 0-7; hexa- 
decimal constants can con- 
tain digits 0-9, A-F. 


Correct constant and 
recompile. 


5 


F 


-TERM- MISSING 


A TERM statement is 
required to terminate 
compilation. It must 
appear after the final 
END statement. 


Supply TERM statement and 
recompile. 
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TABLE B-l. COMPILER ERROR MESSAGES (Contd) 



Error 
Number 


Error 
Level 


Message 


Significance 


Action 


6 


F 


BAD STATUS CONSTANT USE - 
USED 


Self-explanatory. 


Correct error and 
recompile. 


7 


F 


BAD NESTING OF PARENTHESES OR 
BRACKETS 


Self-explanatory. 


Correct error and 
recompile. 


8 


W 


ILLEGAL CHARACTER IN INPUT - 
IGNORED 


A character was used that 
is not part of the SYMPL 
character set. 


Replace illegal character 
and recompile. 


9 


W 


CHARACTER STRING LONGER THAN 
240 BYTES - 240 USED 


Character string was trun- 
cated to 240 characters. 


Verify that the truncation 
does not affect the logic 
of the program. 


10 


F 


-PROC- OR -FUNC- NAME CANNOT 
BE A RESERVED WORD 


A reserved word was used 
as a procedure or function 
name. 


Change the procedure or 
function name and 
recompile. 


11 


F 


SYMPL TEXT CONTAINS XDEF 


Self-explanatory. 


Correct error and 
recompile. 


12 


F 


ILLEGAL ARRAY IDENTIFIER USE 
DELETED 


Self-explanatory. 


Change array identifier 
and recompile. 


13 


F 


ILLEGAL STATUS LIST 
IDENTIFIER USE DELETED 


Self-explanatory. 


Change status list 
identifier and recompile. 


14 


F 


ILLEGAL COMMON IDENTIFIER USE 
DELETED 


Self-explanatory. 


Change common identifier 
and recompile. 


15 


F 


SEMICOLON MISSING AFTER ARRAY 
DECLARATION 


Self-explanatory. 


Supply semicolon and 
recompile. 


16 


F 


CRUD AT START OF STATEMENT 
DELETED 


The extraneous characters 
that preceded the state- 
ment were removed. 


Check the previous state- 
ment for syntax errors. 
Correct errors and 
recompile. 


17 


F 


ILLEGAL KEYWORD USE DELETED 


A reserved word was used 
improperly. 


Check for programmer- 
defined name that dupli- 
cates a reserved word. 
Correct error and 
recompile. 


18 


F 


ARRAY ITEM DECLARATION LIST 
LACKS -END- 


An array item list must 
start with a BEGIN state- 
ment and terminate with an 
END statement. 


Supply the missing END 
statement and recompile. 


19 


W 


DUPLICATE DECLARATION 
OVERRIDES 


Two or more declarations 
for the same name were 
found. The last declara- 
tion encountered was used. 


Verify that the last 
declaration encountered 
is the one that was 
intended. 


20 


F 


ITEM DECLARATION IDENTIFIER 
ERROR 


The identifier in an ITEM 
declaration was invalid or 
missing. 


Correct the identifier 
or supply the missing 
identifier. Recompile. 


21 


F 


DECLARATION DISCARDED - SCAN 
RESUMES AT SEMICOLON 


Syntax errors were 
detected in a declaration. 
Uses of the declared name 
were also diagnosed. 


Correct declaration and 
recompile. 


22 


W 


ITEM DECLARATION TYPE ERROR - 
I ASSUMED 


An invalid data type was 
specified. The item was 
assumed to be an integer. 


Verify that the item was 
intended to be an integer. 
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Error 
Number 


Error 
Level 


Message 


Significance 


Action 


23 


F 


SYMPL TEXT CONTAINS 
EXECUTABLE STATEMENTS 


Self-explanatory. 


Correct error and 
recompile. 


24 


w 


SIGNED PRESET ILLEGAL FOR 
THIS TYPE - IGNORED 


This data type cannot have 
a sign. The sign in the 
preset specification was 
ignored. 


Verify that the proper 
data type and preset were 
specified. 


25 


F 


SCAN RESUMES AT -BEGIN- 


Previous syntax errors 
were detected causing the 
diagnostic scan to be 
temporarily terminated. 
Scan was resumed at the 
BEGIN statement. 


Correct previous errors 
and recompile. Some 
errors may not have been 
diagnosed. 


26 


F 


BAD STATEMENT OR SEMICOLON 
MISSING - SEMICOLON ASSUMED 


Self-explanatory. 


Correct error and 
recompile. 


27 


F 


ITEM PRESET ERROR 


Self-explanatory. 


Correct error and 
recompile. 


28 


F 


SYMPL TEXT CONTAINS LABEL 


Self-explanatory. 


Correct error and 
recompile. 


29 


F 


BASED, XDEF OR XREF ARRAYS 
NEED IDENTIFIER 


An identifier is not 
optional in this type of 
declaration. 


Supply identifier and 
recompile. 


30 


F 


ARRAY ITEM DECLARATION SYNTAX 
ERROR 


Self-explanatory. 


Correct error and 
recompile. 


31 


F 


ARRAY ITEM DECLARATION TYPE 
ERROR 


Self-explanatory. 


Correct error and 
recompile. 


32 


W 


BAD ARRAY BOUND VALUES - 
ASSUMED [0:0] 


Invalid array bounds 
were specified. The lower 
bound must be less than or 
equal to the upper bound. 
A one-entry array was 
assumed. 


Verify that a one-entry 
array was intended. 


33 


F 


ARRAY BOUND SYNTAX ERROR 


Self-explanatory. 


Correct error and 
recompile. 


34 


W 


PARTWORD SPECIFICATION ERROR 
IN ARRAY ITEM DECLARATION - 
DEFAULT TAKEN 


Self-explanatory. 


Verify that the default 
does not affect the logic 
of the program. 


35 


W 


FIRST BIT ALIGNMENT WRONG IN 
ARRAY ITEM DECLARATION - 
USED 


Self-explanatory. 


Verify that the default 
does not affect the logic 
of the program. 


36 


W 


ILLEGAL ARRAY ITEM BOUNDARY - 
DEFAULT TAKEN 


Self-explanatory. 


Verify that the default 
does not affect the logic 
of the program. 


37 


F 


MAXIMUM ARRAY SIZE EXCEEDED 


Self-explanatory. 


Correct error and 
recompile. 


38 


F 


TOO MANY PRESET GROUPS 


Self-explanatory. 


Correct error and 
recompile. 
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Error 
Number 



39 
40 
41 
42 



43 

44 

45 
46 



47 
48 

49 
50 
51 

52 

53 
54 



Error 
Level 



Message 



ARRAY PRESET SYNTAX ERROR 



-COMMON- MUST BE AT OUTER 
SCOPE ONLY 

BAD COMMON DECLARATION 
IGNORED 

BAD XREF OR XDEF IGNORED 



BAD BASED DECLARATION IGNORED 



XDEF OR XREF LIST CRUD 
DELETED 



SYMPL TEXT CONTAINS SWITCH 
DECLARATION 

COMMON LIST SCAN RESUMES AT 
NEXT -ARRAY- OR -ITEM- 



SYMPL TEXT CONTAINS INNER 
SCOPE VARIABLE 

-END- ENDS BAD COMMON LIST 



-DEF- DECLARATION SYNTAX 
ERROR 

BAD FORMAL PARAMETER 
DECLARATION 

PROGRAM BEGINS BADLY 



-PRGM- DECLARATION LACKS 
IDENTIFIER 

-PRGM- DECLARATION ERROR 
CRUD PRECEDES SEMICOLON 

XDEF OR XREF LIST SCAN 
RESUMES AT LEGAL ENTRY 



Significance 



Self-explanatory. 
Self-explanatory. 
Self-explanatory. 



A syntax error was 
detected in an XDEF or 
XREF declaration. Refer- 
ences to the declared 
identifier were also 
diagnosed. 

An error was detected in a 
based array declaration. 
References to the declared 
name were also diagnosed. 

The extraneous characters 
that appeared in an XDEF 
or XREF list were removed. 



Action 



Self-explanatory. 



in 
the 



Previous syntax errors 
the common list caused 
diagnostic scan to be 
temporarily terminated. 
Scan was resumed at an 
ARRAY or ITEM declaration 

Self-explanatory. 



The diagnosed END state- 
ment was used to terminate 
a common list that con- 
tains syntax errors. 

Se If -expl anatory. 



Self-explanatory. 

A program must begin with 
a PRGM, PROC, or FUNC 
statement. 

An identifier is required 
as a program name. 

Self-explanatory. 



Previous syntax errors 
caused the diagnostic scan 
to be temporarily termi- 
nated. Scan resumed at a 
legal entry in the 
declaration. 



Correct error and 
recompile. 

Correct error and 
recompile. 

Correct common declaration 
and recompile. 

Correct declaration and 
recompile. 



Correct error and 
recompile. 



Correct error and 
recompile. 



Correct error and 
recompile. 

Correct previous syntax 
errors and recompile. 
Some errors may not have 
been diagnosed. 



Correct error and 
recompile. 

Correct syntax errors in 
common list and check for 
possible BEGIN - END mis- 
matches. Recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 



Supply program name 
and recompile. 

Correct error and 
recompile. 

Correct previous syntax 
errors and recompile. 
Some errors may not have 
been diagnosed. 
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Error 
Number 


Error 
Level 


Message 


Significance 


Acti on 


55 


F 


DUPLICATE COMMON BLOCK 
DECLARATION IN SYMPL TEXT 


Self-explanatory. 


Correct error and 
recompile. 


56 


F 


-END- ENDS BAD XDEF OR XREF 
LIST 


The diagnosed END state- 
ment was used to terminate 
an XDEF or XREF declara- 
tion that contains syntax 
errors. 


Correct syntax errors in 
declaration and check for 
possible BEGIN - END 
mismatches. Recompile. 


57 


W 


SYMPL TEXT DUPLICATE 
DECLARATION OVERRIDES 


Two or more declarations 
were found for the same 
name. The declaration 
appearing in the SYMPL 
text was used. 


Verify that the proper 
declaration was used. 


58 


F 


SYMPL TEXT CONTAINS FORMAL 
PARAMETER 


Self-explanatory. 


Correct error and 
recompile. 


59 


W 


-FUNC- DECLARATION TYPE 
ERROR - I ASSUMED 


An illegal type was 
specified for a function. 
The function was assumed 
to return an integer value. 


Verify that the function 
was intended to be an 
integer function. 


60 


w 


CONSTANT TOO LARGE, 
SIGNIFICANCE LOST 


The high-order bits were 
truncated. 


Verify that the truncation 
does not affect the logic 
of the program. 


61 


F 


SCAN RESUMES AT SEMICOLON 


Previous syntax errors 
caused the diagnostic scan 
to be temporarily termi- 
nated. Scan was resumed 
at a semicolon. 


Correct the previous 
syntax errors and recom- 
pile. Some errors may not 
have been diagnosed. 


62 


F 


DUPLICATE FORMAL PARAMETER IN 
LIST 


An identifier cannot 
appear more than once in 
a formal parameter list. 


Change the duplicate 
identifiers and recompile. 


63 


F 


DUPLICATE PARAMETER - PRIOR 
DECLARATION THIS SCOPE 


Self-explanatory. 


Correct error and 
recompile. 


64 


F 


PARAMETER LIST SYNTAX ERROR 


Self-explanatory. 


Correct error and 
recompile. 


65 


F 


-PROC- DECLARATION LACKS 
IDENTIFIER 


An identifier must be 
supplied as a procedure 
name. 


Supply procedure name and 
recompile. 


66 


F 


-PROC- DECLARATION SYNTAX 
ERROR 


Self-explanatory. 


Correct error and 
recompile. 


67 


F 


UNDECLARED LABEL OR PROCEDURE 
IDENTIFIER 


A label or procedure name 
was referenced but not 
declared. 


Check for misspelled label 
or procedure reference, or 
supply declaration for 
label or procedure name. 
Recompile. 


68 


F 


FORMAL IDENTIFIER LACKS 
DECLARATION 


An identifier was refer- 
enced but not declared. 


Check for misspelled 
identifier reference, 
supply declaration for 
identifier, or correct 
error in declaration. 
Recompile. 
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Error 

Number 



69 



70 

71 
72 

73 

74 
75 



Error 
Level 



82 
83 

84 
85 



76 


F 


77 


F 


78 


F 


79 


F 


80 


F 


81 


F 



Message 



PARAMETER NOT DEFINED IN THIS 
SCOPE, AND NOT USED 



ILLEGAL -DEF- IDENTIFIER 
NO EXPANSION 



ENTRY -PROC- MAY NOT CALL 
ITSELF 

END OF RECORD SEEN BEFORE 
-TERM- FOUND 



TOO MANY SUBSCRIPTS FOR ARRAY 
OR ARRAY ITEM REFERENCE 



TOO MANY SUBSCRIPTS FOR 
SWITCH REFERENCE 

NOT ENOUGH SUBSCRIPTS FOR 
ARRAY OR ARRAY ITEM REFERENCE 



BAD SUBSCRIPT LIST 



ILLEGAL LABEL OR PROCEDURE 
IDENTIFIER USE DELETED 

STATUS SWITCH DECLARATION 
LACKS STATUS LIST IDENTIFIER 

BAD LABEL USE IN STATUS 
SWITCH 

STATUS SWITCH ERROR - 
VALUE TOO LARGE 

STATUS SWITCH ERROR - 
DUPLICATE STATUS CONSTANT 
VALUES 

STATUS SWITCH ERROR - MISSING 
STATUS CONSTANT 

BEGIN/END MISMATCH, PROBABLE 
DISASTER 



-IF- EXPRESSION NOT BOOLEAN 



-WHILE- EXPRESSION NOT 
BOOLEAN 



Significance 



A formal parameter was not 
dec 1 ar ed . Undec 1 ar ed 
parameters are assumed to 
be labels. 



The syntax error sup- 
pressed expansion of the 
DEF. 

Recursive routines are not 
allowed in SYMPL. 

A compilation unit must be 
contained on one record 
and must end with a TERM 
statement. 

Arrays and array refer- 
ences can have up to 7 
dimensions. 

Self-explanatory. 



An array was declared 
without subscripts or an 
array reference contains 
fewer subscripts than 
specified in the array 
declaration. 

Self-explanatory. 



Self-explanatory. 
Self-explanatory. 
Self-explanatory. 
Self-explanatory. 
Self-explanatory. 

Self-explanatory. 



The number of BEGIN and 
END statements differ. 



Self-explanatory. 



Self-explanatory. 



Acti on 



If the diagnosed parameter 
is not intended to be a 
label, declare it to be a 
formal parameter and 
recompile. Otherwise, 
verify that the label is 
used in the scope. 

Correct the error in the 
DEF identifier and 
recompile. 

Remove recursive calls and 
recompile. 

Supply TERM statement and 
recompile. 



Restructure array and 
recompile. 



Correct error and 
recompile. 

Supply missing subscripts 
and recompile. 



Correct error and 
recompile. . 

Correct error and 
recompile. 

Supply status list 
identifier and recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 



Supply status constant and 
recompile. 

Check all BEGIN - END 
pairs for mismatches. 
Correct errors and 
recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 
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Error 
Number 


Error 
Level 


Message 


Significance 


Action 


86 


F 


CRUD AFTER FINAL END IGNORED 


More characters were found 
after the final END 
statement. 


Check for possible 
BEGIN - END mismatches. 
Correct error and 
recompile. 


87 


F 


-DEF- IDENTIFIER EXPANSION 
NEST TOO DEEP - IDENTIFIER 
DELETED 


Self-explanatory. 


Correct error and 
recompile. 


88 


F 


MISSING -DO- HAS BEEN FOUND 


Self-explanatory. 


Correct error and 
recompile. 


89 


F 


MISSING -THEN- HAS BEEN FOUND 


Self-explanatory. 


Correct error and 
recompile. 


90 


F 


MISSING -DO- 


A DO statement was 
expected. 


Check program logic. 


91 


F 


MISSING -THEN- 


A THEN clause was 
expected. 


Check program logic. 


92 


F 


ERROR IN INITIAL VALUE 
EXPRESSION OF INDUCTION 
VARIABLE 


Self-explanatory. 


Correct error and 
recompile. 


93 


F 


-STEP- EXPRESSION ERROR 


Self-explanatory. 


Correct error and 
recompile. 


94 


F 


-UNTIL- EXPRESSION ERROR 


Self-explanatory. 


Correct error and 
recompile. 


95 


F 


-WHILE- EXPRESSION ERROR 


Self-explanatory. 


Correct error and 
recompile. 


96 


F 


BAD -GOTO- DELETED 


Self-explanatory. 


Correct error and 
recompile. 


97 


F 


BAD REPLACEMENT STATEMENT 
DELETED 


Self-explanatory. 


Correct error and 
recompile. 


98 


W 


PARTWORD SPECIFICATIONS AFTER 
FIRST 3 IGNORED 


Self-explanatory. 


Verify that the error does 
not affect the logic of 
the program. 


99 


F 


ITEM DISCARDED - SCAN RESUMES 
AT COMMA 


Excessive errors were 
detected in the ITEM 
declaration. The 
declaration was ignored. 


Correct syntax errors in 
the declaration and 
recompile. 


100 


F 


HANGING -IF- CLAUSE 


Self-explanatory. 


Correct error and 
recompile. 


101 


F 


HANGING -FOR- CLAUSE 


Self-explanatory. 


Correct error and 
recompile. 


102 


F 


HANGING -ELSE- 


Self-explanatory. 


Correct error and 
recompile. 


103 


F 


EXTRA -END- FOUND, -BEGIN- 
FOR SUBPROGRAM ASSUMED 


A BEGIN statement was 
assumed at the beginning 
of the subprogram, and was 
associated with the extra 
END statement. This may 
have caused other diagnos- 
tics to be generated. 


Check all BEGIN - END 
pairs to insure proper 
structure. Correct all 
errors and recompile. 
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Number 


Error 
Level 


Message 


Significance 


Action 


104 


F 


ILLEGAL UNDECLARED PARAMETER 
USE DELETED 


Self-explanatory. 


Correct error and 
recompile. 


105 


F 


-FOR- STATEMENT INDUCTION 
VARIABLE ERROR 


Self-explanatory. 


Correct error and 
recompile. 


106 


F 


-IF- EXPRESSION ERROR 


Self-explanatory. 


Correct error and 
recompile. 


107 


F 


DUPLICATE XDEF OR XREF 
DECLARATIONS FOR IDENTIFIER 


Self-explanatory. 


Remove duplicate decla- 
rations and recompile. 


108 


F 


XDEF -PROC- OR -FUNC- 
NOT FULLY DECLARED 


Self-explanatory. 


Correct error and 
recompile. 


109 


F 


BAD FORMAL PARAMETER 
DECLARATION 


Self-explanatory. 


Correct error and 
recompile. 


110 


F 


REDUNDANT FORMAL PARAMETER 
DECLARATION 


Self-explanatory. 


Correct error and 
recompile. 


111 


F 


BAD PARAMETER LIST 


Self-explanatory. 


Correct error and 
recompile. 


112 


F 


BOOLEAN ILLEGAL IN ARITHMETIC 
CONTEXT 


Self-explanatory. 


Correct error and 
recompile. 


113 


F 


COMMON LIST LACKS -END- 


Common lists must be 
surrounded by BEGIN and 
END statements. 


Supply missing END 
statement and recompile. 


114 


F 


BASED LIST LACKS -END- 


Based array lists must be 
surrounded by BEGIN and 
END statements. 


Supply missing END 
statement and recompile. 


115 


F 


XDEF OR XREF LIST LACKS -END- 


XDEF and XREF lists must 
be surrounded by BEGIN and 
END statements. 


Supply missing END 
statement and recompile. 


116 


F 


BAD COMMON LIST DECLARATION 
DELETED 


Self-explanatory. 


Correct error and 
recompile. 


117 


F 


BAD BASED ARRAY DECLARATION 
DELETED 


Self-explanatory. 


Correct error and 
recompile. 


118 


F 


BASED LIST SCAN RESUMES WITH 
-ARRAY- 


Previous syntax errors 
caused the diagnostic scan 
to be temporarily termi- 
nated. Scan was resumed 
at the ARRAY declaration. 


Correct previous errors 
and recompile. Some 
errors may not have been 
diagnosed. 


119 


F 


-END- ENDS BAD BASED ARRAY 
LIST 


The diagnosed END state- 
ment was used to terminate 
a based array list that 
contains syntax errors. 


Correct syntax errors and 
check for possible 
BEGIN - END mismatches. 
Recompile. 


120 


T 


ZERO LENGTH -DEF- STRING 
IGNORED 


Self-explanatory. 


Check program logic. 


121 


W 


CHARACTER ITEM LENGTH 
OMITTED - 1 ASSUMED 


Self-explanatory. 


Verify that a character 
length of 1 was intended. 


122 


F 


BAD ARRAY ENTRY SIZE 


Self-explanatory. 


Correct error and 
recompile. 
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Error 
Number 



123 
124 
125 
126 
127 

128 
129 
130 
131 

132 

133 



134 
135 
136- 



137 


F 


138 


F 


139 


U 


140 


F 



Error 
Level 



Message 



BRACKET NEST TOO DEEP 



ILLEGAL EXPRESSION TYPE ON 
LEFT SIDE 

BAD BEAD FUNCTION 



OPERATOR OR OPERAND MISSING 
IN EXPRESSION 

LONG CHARACTER STRING - 
240 BYTES USED 



BAD -LOC- FUNCTION 



BAD -ABS- FUNCTION 



BAD INDUCTION VARIABLE TYPE 



VARIABLE IN -TEST- IS NOT AN 
INDUCTION VARIABLE 



-TEST- ILLEGAL OUTSIDE LOOP 



SCAN RESUMES AT -BEGIN-, 
-ITEM- OR SEMICOLON 



BEAD FUNCTION NEEDS 
IDENTIFIER 

DUPLICATE STATUS IDENTIFIER 



SEMICOLON ENDS COMMENT 



-CONTROL- STATEMENT SYNTAX 
ERROR 

CHARACTER IN REAL CONSTANT 
IS NOT D OR E 



FORMAL PARAMETER PRESET IS 
IGNORED 

-XREF- PRESET IS ILLEGAL 



Significance 



Self-explanatory. 
Self-explanatory. 
Self-explanatory. 
Self-explanatory. 



The first 240 characters 
were used. 



The LOC function was used 
incorrectly. 

The ABS function was used 
incorrectly. 

Self-explanatory. 



The variable specified in 
the TEST statement must be 
the induction variable of 
the loop being tested. 

The TEST statement must 
appear inside the loop for 
which the induction 
variable is being tested. 

Previous syntax errors 
caused the diagnostic scan 
to be temporarily termi- 
nated. Scan resumed at 
the next BEGIN, ITEM, or 
semicolon. 

Self-explanatory. 



Self-explanatory. 



A comment cannot contain a 
semicolon or a pound sign. 



Self-explanatory. 
Self-explanatory. 



A formal parameter cannot 
be preset. 

A name that is defined in 
an externally-compiled 
procedure cannot be preset 
in this compilation unit. 



Action 



Correct error and 
recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 

Verify that the error does 
not affect the logic of 
the program. 

Correct error and 
recompile. 

Correct error and 
recompile. 

Correct error and 
recompile. 

Check for misspelled 
variable name. Correct 
error and recompile. 



Move TEST statement inside 
the appropriate loop and 
recompile. 



Correct previous syntax 
errors and recompile. 
Some errors may not have 
been diagnosed. 



Supply identifier and 
recompile. 

Correct error and 
recompile. 

Check for a missing 
comment delimiter, or 
remove invalid character 
from the comment string. 

Correct error and 
recompile. 

Change character in real 
constant to a D or E and 
recompile. 

Check program logic. 



Remove preset spcification 
and recompile. 
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Error 
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141 


F 


BLANK COMMON PRESET IS 
ILLEGAL 


Blank common cannot be 
preset. 


Remove preset specifica- 
tion and recompile. 


142 


F 


BASED ARRAY ITEM PRESET IS 
ILLEGAL 


Based arrays cannot be 
preset. 


Remove preset specifica- 
tion and recompile. 


143 


F 


BAD P FUNCTION 


The P function was used 
incorrectly. 


Correct error and 

recompile. 


144 


W 


LENGTH OF CHARACTER ITEM IS 
GREATER THAN 240 BYTES - 
240 USED 


The first 240 characters 
were used. 


Verify that the truncation 
does not affect the logic 
of the program. 


145 


W 


NO SUBSCRIPT FOR ARRAY ITEM - 
LOWER ARRAY BOUND USED 


The subscript was missing 
from the array reference. 
The compiler assumed the 
first element of the array 
was intended. 


Verify that the first 
element is intended. 


146 


F 


CIRCULAR DEF NAME EXPANSION - 
EXPANSION IGNORED 


A DEF cannot directly or 
indirectly reference 
itself. 


Rewrite the DEFs to remove 
the recursive references. 
Recompile. 


147 


F 


ENTRY -PROC- OR -FUNC- NOT 
ALLOWED IN A -PRGM- 


Self-explanatory. 


Remove ENTRY and recompile. 


148 


F 


ILLEGAL CHARACTER IN 
PARAMETERIZED -DEF- TEXT 


Self-explanatory. 


Correct error and 
recompile. 


149 


F 


ILLEGAL COMPARISON IN 
-CONTROL IF- 


Self-explanatory. 


Correct error and 
recompile. 


150 


F 


TOO MANY DEF PARAMETERS 


Self-explanatory. 


Correct error and 
recompile. 


151 


W 


ILLEGAL CONDITIONAL DIRECTIVE 
IGNORED 


Self-expl anatory. 


Verify that the error does 
not affect the logic of 
the program. 


152 


F 


LABEL IS ILLEGAL AS A VALUE 
PARAMETER 


Self-explanatory. 


Correct error and 
recompile. 


153 


F 


ARRAY IS ILLEGAL AS A VALUE 
PARAMETER 


Self-expl anatory. 


Correct error and 
recompile. 


154 


F 


-PROC- OR -FUNC- IS ILLEGAL 
AS A VALUE PARAMETER 


Self-explanatory. 


Correct error and 
recompile. 


155. 


F 


COMMON BASED ARRAY 
DECLARATION ERROR 


Self-explanatory. 


Correct error and 
recompile. 


156 


F 


SYMPL TEXT IS NOT A -PRGM- OR 
-PROC- 


Self-explanatory. 


Correct error and 
recompile. 


157 


F 


XREF SWITCH ERROR 


Self-expl anatory. 


Correct error and 
recompile. 


158 


F 


UNMATCHED -CONTROL IF- 


A CONTROL IF statement 
must have a corresponding 
CONTROL FI or CONTROL 
ENDIF statement. 


Supply a CONTROL FI or 
CONTROL ENDIF statement 
to delimit conditional 
block. 


159 


F 


-DEF- PARAMETER ERROR 


Self-explanatory. 


Correct error and 
recompile. 
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Error 
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160 


F 


( [ OR < NESTING TOO DEEP) 


Self-explanatory. 


Correct error and 
recompile. 


161 


F 


( [ OR < NEST MISMATCH) 


Self-explanatory. 


Correct error and 
recompile. 


162 


F 


-DEF- PARAMETER TOO LONG 


Self-explanatory. 


Correct error and 
recompile. 


163 


F 


-DEF- PARAMETER COUNT ERROR 


Self-explanatory. 


Correct error and 
recompile. 


164 


F 


RECOVERY AT SEMICOLON 


Previous syntax errors 
caused the diagnostic scan 
to be temporarily termi- 
nated. Scan was resumed 
at the semicolon. 


Correct previous syntax 
errors and recompile. 
Some errors may not have 
been diagnosed. 


165 


F 


BAD -DEF- ACTUAL PARAMETER 


Self-explanatory. 


Correct error and 
recompile. 


166 


F 


BAD UNDECLARED PROC OR LABEL 
LIST 


Self-explanatory. 


Correct error and 
recompile. 


167 


F 


SYMPL TEXT CONTAINS -LABEL- 
OR INNER -PROC- 


Self-explanatory. 


Correct error and 
recompile. 


168 


F 


-TERM- ENCOUNTERED 
PREMATURELY - NEXT LINE 
BEGINS A NEW SUBPROGRAM 


Compilation was terminated 
by a TERM statement before 
the end of the program was 
reached. This may have 
caused errors in the next 
compilation unit. 


Check for a misplaced TERM 
statement. Check BEGIN - 
END matching in first 
compilation unit. Correct 
errors and recompile. 


169 


F 


ATTRIBUTE SPECIFIED TO 
UNKNOWN VARIABLE 


Self-explanatory. 


Correct error and 
recompile. 


170 


F 


SCALAR ITEMS MAY NOT BE INERT 
OR REACTIVE 


Self-explanatory. 


Correct error and 
recompile. 


171 


F 


ONLY ITEMS AND ARRAYS HAVE 
ATTRIBUTES 


Self-explanatory. 


Correct error and 
recompile. 


172 


F 


BAD ATTRIBUTE OR LEVEL 
SPECIFICATION LIST 


Self-explanatory. 


Correct error and 
recompile. 


173 


F 


FAST FOR LOOP INDUCTION 
VARIABLE ERROR 


Self-explanatory. 


Correct error and 
recompile. 


174" 


F 


BAD GLOBAL ATTRIBUTE 
SPECIFICATION 


Self-explanatory. 


Correct error and 
recompile. 


175 


F 


LEVEL ONLY APPLIES TO COMMON 
AND BASED ARRAYS 


Self-explanatory. 


Correct error and 
recompile. 


176 


F 


BAD USE OF LEVEL 3 VARIABLE 


The level 3 data appeared 
in one of the prohibited 
forms. 


Correct error and 
recompile. 


177 


F 


INDUCTION VARIABLE MUST BE 
SCM RESIDENT 


The induction variable 
must be located in small 
central memory. 


Correct error and 
recompile. 


178 


F 


-CONTROL WEAK- ONLY APPLIES 
TO EXTERNAL SYMBOLS 


Self-explanatory. 


Correct error and 
recompile. 
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Error 
Number 


Error 
Level 


Message 


Significance 


Action 


179 


F 


ARRAY" ENTRY-SIZE TOO LARGE 


Self-explanatory. 


Correct error and 
recompile. 


180 


F . 


TOO MANY ARRAY DIMENSIONS 


Only 7 dimensions are 
allowed for an array. 


Reduce number of array 
dimensions and recompile. 


181 


F 


RECURSIVE -PROC- OR -FUNC- 
CALL NOT ALLOWED 


A procedure or function 
cannot call itself, and 
cannot call other sub- 
programs that result in a 
recursive call. 


Restructure subprogram 
calls to avoid recursion. 
Recompile. 


182 


F 


ERROR IN REAL CONSTANT 


Self-explanatory. 


Correct error and 
recompile. 


183 


D 


XREF OR XDEF LABELS WILL NOT 
BE SUPPORTED IN FUTURE 
VERSIONS 


Self-explanatory. 


None. 


184 


D 


XREF OR XDEF SWITCH WILL NOT 
BE SUPPORTED IN FUTURE 
VERSIONS 


Self-explanatory. 


None. 


185 


D 


XDEF -PROC- WILL NOT BE 
SUPPORTED IN FUTURE VERSIONS 


Self-explanatory. 


None. 


186 


D 


XDEF -FUNC- WILL NOT BE 
SUPPORTED IN FUTURE VERSIONS 


Self-explanatory. 


None. 


187 


D 


-CONTROL FASTLOOP- WILL NOT 
BE SUPPORTED IN FUTURE 
VERSIONS 


Self-explanatory. 


None. 


188 





-CONTROL SLOWLOOP- WILL NOT 
BE SUPPORTED IN FUTURE 
VERSIONS 


Self-explanatory. 


None. 


189 


D 


LOC OF -LABEL- IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


190 


D 


LOC OF -SWITCH- IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


191 


D 


LOC OF -PROC- IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


192 


D 


LOC OF -FUNC- IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


193' 





-BIT- BEAD FUNCTION ON A 
CHARACTER ITEM IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


194 


D 


-BYTE- BEAD FUNCTION ON A 
NON-CHARACTER ITEM IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


195 


D 


PRESET TYPE DIFFERENT FROM 
ITEM TYPE IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 


196 


D 


P FUNCTION SET TO A CONSTANT 
IS MACHINE DEPENDENT 


Self-explanatory. 


None. 


197 


D 


OUT OF SCOPE GOTO IS MACHINE 
DEPENDENT 


Self-explanatory. 


None. 
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Error 
Number 


Error 
Level 


Message 


Significance 


Acti on 


198 


D 


EXPLICIT CONSTANTS 6, 10, 18, 
42, 60 IN EXECUTABLE CODE MAY 
BE MACHINE DEPENDENT 


Self-explanatory. 


None. 


199 


D 


EXCEEDING ARRAY ENTRY SIZE IS 
MACHINE DEPENDENT 


Self-explanatory. 


None. 


200 


D 


-MODULE- AND -FASTFOR- WILL 
BE RESERVED IN FUTURE VERSIONS 


Self-explanatory. 


None. 


201 


F 


ARRAY ITEM OVERLAY CANNOT BE 
A CONSTANT 


Self-explanatory. 


Correct error and 
recompile. 


202 


F 


TOO MANY SPECIFICATIONS IN 
ITEM DECLARATION 


Self-explanatory. 


Correct error and 
recompile. 


203 


F 


ARRAY ITEM LENGTH MUST BE AN 
UNSIGNED CONSTANT 


Self-explanatory. 


Correct error and 
recompile. 


204 


F 


ERROR IN ARRAY ITEM 
SPECIFICATION, SECOND PART 


An error was found in the 
overlay part of the 
declaration. 


Correct error and 
recompile. 


205 


F 


CLOSING ANGLE BRACKET 
EXPECTED IN ARRAY ITEM 
DECLARATION 


Self-explanatory. 


Correct error and 
recompile. 


206 


F 


FILLER ITEM VALID ONLY IN 
OVERLAY-TYPE ARRAY ITEM 
DECLARATIONS 


Self-explanatory. 


Correct error and 
recompile. 


207 


W 


SPECIFICATION OF ARRAY ENTRY 
SIZE ILLEGAL FOR A OR U 
ARRAYS - IGNORED 


Self-explanatory. 


Check program logic. 


208 


F 


ITEM SPECIFIED AS OVERLAY IS 
NOT DEFINED IN THIS ARRAY 
DECLARATION 


Self-explanatory. 


Correct error and 
recompile. 


209 


F 


ARRAY ITEM OVERLAY CLASSES 
ARE INCOMPATIBLE 


Self-explanatory. 


Correct error and 
recompile. 


210 


W 


LENGTH OF REAL ITEM FORCED TO 
A FULL WORD 


A real item must occupy a 
full word. 


Verify that the item 
length used does not 
affect the logic of the 
program. 


211 


F 


LENGTH OF SUBFIELD EXCEEDS 
LENGTH OF ORIGINAL FIELD - 
DECLARATION DISCARDED 


Self-explanatory. 


Correct error and 
recompile. 


212 


F 


PREVIOUS ARRAY ITEM 
DECLARATION DID NOT SPECIFY 
PLUS OR OVERLAY 


Self-explanatory. 


Correct error and 
recompile. 


213 


W 


SPECIFIED ITEM LENGTH EXCEEDS 
MAXIMUM ALLOWABLE - 
DEFAULT TAKEN 


The item was truncated to 
the default length. 


Verify that the item 
length used does not 
affect the logic of the 
program. 


214 


F 


LEFT ANGLE BRACKET EXPECTED 
FOR ARRAY ITEM - DECLARATION 
DISCARDED 


Self-explanatory. 


Correct error and 
recompile. 


215 


F 


FILLER ITEMS CANNOT BE PRESET 


Self-explanatory. 


Remove preset specifica- 
tion and recompile. 



60496400 F 



B-13 • 



TABLE B-l. COMPILER ERROR MESSAGES (Contd) 



Error 
Number 


Error 
Level 


Message 


Significance 


Acti on 


216 


F 


LEFT PARENTHESIS EXPECTED IN 
ARRAY ITEM DECLARATION - 
DECLARATION DISCARDED 


Self-explanatory. 


Correct error and 
recompile. 


217 


F 


STATUS LIST NOT DEFINED IN 
CURRENT OR PREVIOUS TEXTS 


Self-explanatory. 


Correct error and 
recompile. 


218 





DEFAULT VARIABLE BEHAVIOR 
WILL CHANGE IN FUTURE 
VERSIONS 


Self-explanatory. 


None. 


224 


W 


FUNCTION NAME THE SAME AS 
FORMAL PARAMETER NAME 


Self-explanatory. 


Change function name or 
formal parameter name. 


225 


F 


CODE GEN SUPPRESSED 


The compiler stopped 
generating object code 
because of previous syntax 
errors. The compiler con- 
tinued to scan the source 
code for errors. 


1 

Correct all syntax errors 
and recompile. 


800 


C 


INSUFFICIENT FIELD LENGTH 
(MORESPC IN CONTROL) 


Compilation aborted. 




801 


C 


SCM FREE SPACE BLOCK 
INSUFFICIENT SIZE 
(TSPACE IN SRCH) 


Compilation aborted. 




802 


c 


FIND LOOP (FIND IN SRCH) 


Compilation aborted. 




803 


c 


ARRAY PRESET EXCEEDS MAXIMUM 
SIZE (PSET IN ALOCTR) 


Compilation aborted. 




804 


c 


ARRAY ITEM PRESET LARGER THAN 
BUFFER (GETSP IN ALOCTR) 


Compilation aborted. 




805 


c 


COND REPL OUTSIDE OF RULE 
BODY, BAD GENESIS TABLES 
(ANZS) 


Compilation aborted. 




806 


c 


SAVE CONTROL TABLE OVERFLOW 
(CSAVE IN CODE) 


Compilation aborted. 




807 


c 


WHATS DOING TABLE OVERFLOW 
(CSAVE IN CODE) 


Compilation aborted. 




808 


c 


BAD ENDSAVE REQ. NO SAVE REQ 
EXTANT (ENDSAVE IN CODE) 


Compilation aborted. 




809 


c 


RESTR/FORGET ON NON-EXTANT 
SAVE BUFFER (ZAP IN CODE) 


Compilation aborted. 




810 


c 


RESTR/FORGET ON CURRENT SAVE 
BUFFER (ZAP IN CODE) 


Compilation aborted. 




811 


c 


OSAVE ON CURRENT SAVE BUFFER 
(OSAVE IN CODE) 


Compilation aborted. 




812 


c 


OSAVE ON NON-EXTANT SAVE 
BUFFER (OSAVE IN CODE) 


Compilation aborted. 




813 


c 


WHATS DOING TABLE OVERFLOW 
(OSAVE IN CODE) 


Compilation aborted. 
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Error 
Number 


Error 
Level 


Message 


Significance 


Acti on 


814 


C 


IL FAT OVERFLOW (HATCHK) 


Compilation aborted. 




815 


C 


> 100 PROGRAM SCOPES 
(SCPIN IN PF1SUB) 


Compilation aborted. 




816 


C 


NO PRAGMATIC FUNC (PF11) 


Compilation aborted. 




817 


C 


BAD UNDEF ID (PF11) 


Compilation aborted. 




818 


C 


BRACKET/PAREN NEST TOO DEEP 
(PF11) 


Compilation aborted. 




819 


C 


NO PRAGMATIC FUNC (PF12) 


Compilation aborted. 




820 


C 


C-TYPE ITM ERR (PF12) 


Compilation aborted. 




821 


c 


COMPOUND STATEMENT COLLECTION 
ERR (PF12) 


Compilation aborted. 




822 


c 


NO PRAGMATIC FUNC (PF13) 


Compilation aborted. 




823 


c 


PARAM LIST TABLE OVERFLOW 
(PF13) 


Compilation aborted. 




824 


c 


SYNTAX ERROR (PF13) 


Compilation aborted. 




825 


c 


LOOP CONTROL TABLE OVERFLOW 
(PF14 IN PF13) 


Compilation aborted. 




826 


c 


FALL THROUGH (FILTRO) 
LINE nnnn 


Compilation aborted. 




827 


c 


STACK UNDERFLOW (PHASBS) 
LINE nnnn 


Compilation aborted. 




828 


c 


UNEXPECTED END-OF-FILE 
(PHASBS) LINE nnnn 


Compilation aborted. 




829 


c 


ILLEGAL IL SEEN (PHASBS) 
LINE nnnn 


Compilation aborted. 




830 


c 


STACK OVERFLOW (PHASBS) 
LINE nnnn 


Compilation aborted. 




831 


c 


TRIAD TABLE OVERFLOW (GETRD) 
LINE nnnn 


Compilation aborted. 




832 


c 


STACK NON-EMPTY AT BREAKPOINT 
(PHASBS) LINE nnnn 


Compilation aborted. 




833 


c 


BAD SWITCH STATE INDEX 
(BRKPT) LINE nnnn 


Compilation aborted. 




834 


c 


ZERO-DIVIDE ATTEMPT (EXPGEN) 
LINE nnnn 


Compilation aborted. 




835 


c 


NON-EXISTENT VALU DELETION 
ATTEMPT (DHASH) LINE nnnn 


Compilation aborted. 




836 


c 


NON-EXISTENT VALU RETRIEVAL 
ATTEMPT (EXPGEN) LINE nnnn 


Compilation aborted. 




837 


c 


LOOP STACK OVERFLOW (BRKPT) 
LINE nnnn 


Compilation aborted. 
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838 


C 


LOOP STACK UNDERFLOW (BRKPT) 
LINE nnnn 


Compilation aborted. 




839 


C 


ILLEGAL LEFT SIDE (REPRC) 
LINE nnnn 


Compilation aborted. 




840 


C 


VALB OF LOCALLY SAVD VALUE 
(BRKPT) LINE nnnn 


Compilation aborted. 




841 


C 


STACK HISTORY OVERFLOW 
(PHASBS) LINE nnnn 


Compilation aborted. 




842 


C 


INFINITE OPERAND (CXIOP IN 
CONSAM) LINE nnnn 


Compilation aborted. 




843 


C 


INDEFINITE OPERAND (CXIOP IN 
CONSAM) LINE nnnn 


Compilation aborted. 




844 


C 


PARM STACK NON-EMPTY (IADCON 
IN ADCON) LINE nnnn 


Compilation aborted. 




845 


C 


PARM STACK OVERFLOW (SADCON 
IN ADCON) LINE nnnn 


Compilation aborted. 




846 


C 


PARM STACK UNDERFLOW (FADCON 
IN ADCON) LINE nnnn 


Compilation aborted. 




847 


C 


PARM LIST OVERFLOW (ADCON) 
LINE nnnn 


Compilation aborted. 




848 


C 


ILLEGAL FUNI BYTE (PHASBS) 
LINE nnnn 


Compilation aborted. 




849 


C 


UNEXPECTED END-OF-FILE, 
NO PTPM (GICFB IN C0DGJ1) 
LINE nnnn 


Compilation aborted. 




850 


C 


CANT FIND TEMP (PTEMP IN 
C0DGJ1) LINE nnnn 


Compilation aborted. 




851 


C 


ICFT OVERFLOW (ICOVRFL IN 
C0DGJ1) LINE nnnn 


Compilation aborted. 




852 


C 


UNEXPECTED TYPE (PSTOU IN 
C0DGJ2) LINE nnnn 


Compilation aborted. 




853 


C 


BADLY FORMED ICF (POS IN 
C0DGJ2) LINE nnnn 


Compilation aborted. 




854 


C 


UNEXPECTED OPERAND FOR STORE 
(PSTOS IN C0DGJ2) LINE nnnn 


Compilation aborted. 




855 


C 


ILLEGAL OP CODE (C0DG03) 
LINE nnnn 


Compilation aborted. 




856 


C 


ILLEGAL SEQ. TERMINATING OP 
CODE (C0DGJ3) LINE nnnn 


Compilation aborted. 




857 


C 


BADLY FORMED ICF (C0DGJ3) 
LINE nnnn 


Compilation aborted. 




858 


C 


BAD BPSB OPERATOR OPERAND 
(C0DGK1) LINE nnnn 
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Error 
Level 


Message 


Significance 
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859 


C 


ILLEGAL BPSB OPERATOR OPERAND 
(C0DGK1) LINE nnnn 


Compilation aborted. 




860 


C 


CANT INSERT LOAD (ISLOO IN 
C0DGK1S) LINE nnnn 


Compilation aborted. 




861 


C 


CIRCULAR ENTRY IN READY SET 
(RPC40 IN C0DGK3S) LINE nnnn 


Compilation aborted. 




862 


C 


INVALID ICFT INDEX (RPCOO IN 
C0DGK3S) LINE nnnn 


Compilation aborted. 




863 


C 


TOO MANY COMMON BLOCKS 
(EDITOR) 


Compilation aborted. 




864 


C 


VALB OF LOCALLY SAVED VALU 
(EXPGEN) LINE nnnn 


Compilation aborted. 




865 


C 


UNINTERPRETABLE SOURCE, 
EXPRESSION TOO LONG (SPRECG) 


Compilation aborted. 




866 


C 


MODULE MUST BEGIN WITH 
PROC/FUNC/PRGM (ANZS) 


Compilation aborted. 




867 


C 


BEADFUNC WITH LENGTH = ILL 
(PHASBS) 


Compilation aborted. 




868 


C 


BAD CLASS IN TEXT (USETEXT) 


Compilation aborted. 




869 


C 


MORE THAN 64 TEXTS ON USETEXT 
(INIT15) 


Compilation aborted. 




870 


C 


Y FILE NOT ON RANDOM DEVICE 
(INIT15) 


Compilation aborted. 




871 


G 


MORE THAN 64 SYMPL TEXTS ON 
Y FILES (INIT15) 


Compilation aborted. 




872 


C 


SYMPL TEXT NOT FOUND (INIT15) 


Compilation aborted. 




873 


c 


INSUFFICIENT SCM FL (INIT15) 


Compilation aborted. 




874 


c 


INSUFFICIENT LCM FL (INIT15) 


Compilation aborted. 





60496400 F 



6-17 • 



GLOSSARY 



Arithmetic Expression - 

An expression that yields a numeric value. 

Based Array - 

A structure that can be superimposed over any area 
of memory during program execution. No storage is 
allocated for a based array during compilation; rather 
the compiler creates a specific pointer variable 
compiled with an undefined value. Based arrays are 
used when the position of an array is not known at 
load time. 



Bead Function - 

A function that accesses 
characters of an item. 



consecutive bits or 



Boolean Expression - 

An expression that yields a Boolean value of TRUE or 
FALSE. 

Compilation Unit - 

A separately compiled main program or subprogram 
terminated by a TERM statement or end-of-section. 

Delimiter - 

A character that is used to separate and organize 
data items or statements. SYMPL characters 
classified as marks serve as delimiting characters. 

Entry Point - 

A location within a procedure or function that can be 
referenced from a calling program. Each point has a 
name with which it is associated. 

Exchange Statement - 

A statement that causes the exchange of values of 
the left and right sides of the statement. 

Expression - 

A sequence of identifiers, constants, or function calls 
separated by operators and parentheses. The 
evaluation of an expression yields a value. 

External Reference - 

A reference in one module to an entry point in 
another module. Throughout the loading process, the 
loader matches externals to the correct entry points. 
External references are specified by the XREF 
statement. 

External Subprogram - 

A subprogram that is compiled as a separate module. 

Fastloop - 

A type of FOR statement where the test and branch 
is at the end of the loop. Fastloops always execute at 
least once. Contrast with Slowloop. 

Function - 

A subprogram used within an expression. It returns a 
value through its name. The text of a function must 
contain an assignment statement that assigns a value 
to the function name. A function can also return 
values through its parameters. Contrast with 
Procedure and Main Program. 



Identifier - 

A string of 1 through 12 letters, digits, or $ beginning 
with a letter ($ is considered to be a letter). This 
manual uses the term identifier to indicate a 
programmer-defined entity. Contrast with Reserved 
Words. 

Induction Variable - 

A scalar that is used as the counter for the loop in a 
FOR statement. 

Logical Operator - 

An operator that works with Boolean values and 
yields a Boolean result. Contrast with Masking 
Operator, Numeric Operator, and Relational Operator. 

Main Program - 

A module that consists of a main program header 
followed by a series of declarations and one 
statement (usually compound) and ended by a TERM 
statement. Contrast with Function, Procedure, and 
Subprogram. 

Masking Operator - 

An operator that performs bit-by-bit operations that 
yield numeric results. Contrast with Logical 
Operator, Numeric Operator, and Relational Operator. 

Numeric Operator - 

An operator that performs arithmetic operations to 
yield numeric results. Contrast with Logical 
Operator, Masking Operator, and Relational Operator. 

Parallel Allocation - 

The first words of each array entry are allocated 
contiguously, followed by the second words of each 
entry, and so forth. Contrast with Serial Allocation. 

P Function - 

A function that references the pointer variable for a 
based array. 

Pointer Variable - 

The variable created by the compiler for a based 
array. The pointer variable is set by the P function. 

Procedure - 

A subprogram that can, but need not, return values 
through any of its parameters. It is called when its 
name or one of its alternative entry points is 
referenced. Contrast with Function and Main 
Program. 



Relational Operator - 

An operator that works with arithmetic or character 
operands to produce a Boolean result. Contrast with 
Logical Operator, Masking Operator, and Numeric 
Operator. 



Replacement Statement - 

A statement that assigns a value to a scalar, 
subscripted array item, P function, bead function, or 
function name. 
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Reserved Words - 

Identifiers that have predefined meaning to the 
SYMPL compiler. 

Scalar - 

An item that is not in an array. An ITEM declaration 
outside an array defines a scalar. 

Scope of Variable - 

The set of statements in which the declaration of the 
variable is valid. 

Serial Allocation - 

AH the words of one array entry are allocated 
contiguously. Contrast with Parallel Allocation. 

Slowloop - 

A type of statement where the test and branch is at 
the beginning of the loop. Slowloops need not 
execute at all. Contrast with Fastloop. 

Subprogram - 

A function or procedure. Subprograms can be 
compiled as separate modules. Contrast with Main 
Program. 



Type- 

The representation of data. Data can be integer, 
unsigned integer, real, character, Boolean, or status. 

Weak External - 

An external reference that is ignored by the loader 
during library searching and cannot cause any other 
program to be loaded. A weak external is linked, 
however, if the corresponding entry point is loaded 
for any other reason. 

XDEF Declaration - 

A declaration that generates an entry point that can 
be used by the loader. It is used in the declaring 
program to define an identifier as external. Storage 
is allocated for the identifier. Contrast with XREF 
Declaration. 

XREF Declaration - 

A declaration that generates an external reference to 
the specified identifier. It is used in the referencing 
program. Use of XREF implies that the identifier has 
been declared to be external in another program. No 
storage is allocated for the identifier. Contrast with 
XDEF Declaration. 
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METALANGUAGE 



The mechanics for defining the syntactic forms of SYMPL are accomplished through 
an elementary descriptive language, capable of defining any phrase-structured 
language. 

SYMPL is described in a metalanguage by a set of statements called productions, each 
of which describes one form belonging to SYMPL. The forms of a language are its syn- 
tactic entities, such as the sentence or adverbial phrase (from English), or arithmetic 
expressions (from FORTRAN, for example). 

Every form of SYMPL is described by one metalinguistic production. 

Format of a production is as follows: 

form name : = context J form definition L context 



form name 



Underscored name of the form defined by this production. 
In the metalanguage every underscored sequence is a form 
name . 



form definition 



Production symbol, which may be read: has the form. 

Structure of the form defined by this production (whose name 
is given as the form name of the production). The definition 
of a form specifies the set of character sequences (utterances) 
that it represents; form definitions specify a sequence of the 
following entities: 

Characters of the SYMPL character set, which repre- 
sent themselves. 

Names of SYMPL forms, which represent sequences of 
characters of the SYMPL character set, as specified by 
the productions which describe the form names. 
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Sets of entities like the above, from which any one may 
be chosen. Such a set is enclosed within braces to in- 
dicate alternatives. The use of such alternative sets 
may be recursively defined; thus the form definition 



X 



/*\ 



s7 



contextj and [.context 



is equivalent to a choice of one of the following alterna- 
tive sequences: 

X P R 
X P S 
X Q 

The null form represents zero characters of SYMPL. 
Typically, is used as one member of an alternative 
set if no member of the set must be chosen. 

Optional constraints upon applicability of the production. 
If a production contains either or both context sequences, 
the specified form name only represents the sequence of 
SYMPL characters defined by form definition when it 
occurs in the given context. A context sequence is 
formed similarly to a form definition sequence. 



Thus, the production pair 

\X A/ 
:= B J X 1 B 



X 

Y 



describes sequences of the character A as the form name Y only when they are de- 
limited by occurrences of the character B. 

To summarize, seven symbols are peculiar to the metalanguage: 

Underscore line 

Production symbol : = 

Null symbol 
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Braces 

Context delimiters 



J 



and 
and 



L- 



All other printed characters in metalinguistic productions are either form names 
(underscored) or self-representative members of the SYMPL character set. 



BASIC NOTATION AND ELEMENTS 

CHARACTER SET 

SYMPL programs are composed of 55 characters, as follows: 



Letters 



letter 



A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 
V 

w 

X 

Y 
Z 

$ 
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Digits 



digit 




1 
2 
3 
4 
5 
6 
7 
8 
9 



Marks 



mark 



/ 

+ 



[ 

J 

< 

> 

# 



I % ) 

"fe represents a blank space. 



BLANK SPACES AND COMMENTS 

space := 



comment 



space ) 
a space "| 
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comment 



comment string 



# comment string # 

comment string $ 




ip represents any key punch character except semi- 
colon (;) and pound sign (#), either of which will termi- 
nate a comment. 

The forms a and v are used throughout the metalinguistic description to represent one 
or more blanks and zero or more blanks, respectively. 

IDENTIFIERS 



ident 



ident part 



;= mark J ident part |_ mark 

letter 

i letter I 



ident part 



digit 



RESERVED SYMBOLS 

The 52 SYMPL words are represented as follows: 



abs : 


_ 


mark 
mark 


ABS 
AND 


L 
L 


mark 


and : 


mark 


array : 


= 


mark 


ARRAY 


L 


mark 


based 


= 


mark 


BASED 


L 


mark 


begin : 


= 


mark 


BEGIN 


L 


mark 


common 


= 


mark 


COMMON 


L 


mark 


control 


: = 


mark 


| CONTROL 


L 


mark 


def 


: = 


mark 


J DEF 


L 


mark 


do 


: = 


mark 


J DO 


L 


mark 
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else 

end 

entry 

eg 

false 

for 

fprc 

func 

goto 

gq 
EL 

item 

label 

Ian 

lim 

loc 

lor 

lno 

la 

lqv 
Is 
lxr 
not 

m 

or 

prgm 
proc 
return 

status 



= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= ' mark 

= mark 

= mark 
mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 

= mark 



mark 



ELSE 

END 

ENTRY 

EQ 

FALSE 

FOR 

FPRC 

FUNC 

GOTO 

GQ 

GR 

IF 

ITEM 

LABEL 

LAN 

LIM 

LOC 

LOR 

LNO 

LQ 

LQV 

LS 

LXR 

NOT 

NQ 

OR 

PRGM 

PROC 

RETURN 

STATUS 



L 
L 

L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 



mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
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step 


= mark 


| STEP I 


mark 


stop 


mark 


J STOP L 


mark 


switch 


= mark 


j SWITCH L 


mark 


term 


= mark 


| TERM 


mark 


test 


= mark 


| TEST | 


mark 


then 


mark 


j THEN I 


mark 


true 


= mark 


J TRUE [ 


mark 


until 


= mark 


J UNTIL I 


mark 


while 


= mark 


j WHILE I 


mark 


xdef 


= mark 


J XDEF I 


mark 


xref 


: = mark 


J XREF | 


mark 


spbegin 


mark 


j $BEGIN I 


mark 


spend 


= mark 


J $END [ 


mark 



The action of $BEGIN and $END depends on the presence of option E on the SYMPL 
control statement. 



SPECIAL IDENTIFIERS 

array, item name 
array name 
based array name 
common name 
def name 

formal array name 
formal based name 
formal func name 
formal item name 
formal proc name 
func name 
item name 
label name 



= ident 

= ident 

= ident 

= ident 

= ident 

= ident 

= ident 

= ident 

= ident 

= ident 
ident 

= ident 



ident 
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proc name 
program name 
status list name 
switch name 



= ident 

= ident 

= ident 

= ident 



DEF DECLARATIONS 

DEF Specification 

def head 



defmac head 


def dec 


defmac dec 


opt space 


DEF string 


def params 



def A ident 

def head opt space (V def params y) 

def head opt space #DE F # V ; 



= defmac head opt space #DEF 



# 



J* 



opt space b 



J* 



DEF string rp\ 

I ident | 

I def params V , V ident ( 

^ represents any keypunch character for DEF 
declarations with no parameters. 



DEF Expansion 

defmac expansion 
def par list 

def par 



= defmac name V ( def parlist ) 

\ def par / 

| def par list V , V def par ( 

!Any character sequence that meets the limitations ) 
discussed in section 4 regarding balanced brackets,' 
or the characters ; # ? ) 
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EXPRESSIONS 



Arithmetic Expressions 



arith exp 



unary op y 




infix stuff 



infix stuff 



arith thing 

infix stuff y binary op y arith thing 



arith thing 



item name 

array reference 

func call 

const 

( y arith exp y ) 



unary op 



lno 



binary op 



* 

/ 

+ 

Ian 
lor 
lxr 
lim 

I lax ) 



Boolean Expressions 



Boolean exp 



Boolean thing 

Boolean exp y Boolean op y Boolean thing 



Boolean thing 



' array reference 
item name 
relation 
Boolean const 
not y Boolean thing 
func call 
( y Boolean exp v ) t 
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An item must be declared type B for use as a Boolean operand. 



Boolean op 



and 
or 



relation 



arith exp v relational op v arith exp 



relational op : = 



ea 

IE 
Is 

ga 
la 
5a 



CONSTANTS 



const 



Boolean const 
char const 
integer const 
real const 
status const 



Integer Constants 



integer const 



dec integer 
octal const 
hex const 
status func 



The status func is a special form of integer constant defined under status declarations. 



dec integer 
octal const 
octal stuff 



j dec integer 

\ 

O " octal stuff 

! octal stuff 




digit 



octal digit 

A 
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octal digit 




1 

2 
3 
4 
5 
6 
7 



Hexadecimal Constants 



hex const 



hex stuff 



hex digit 



X " hex stuff " 

{ hex stuff | 
{ 

digit 
A 
B 
C 
D 
E 
F 



hex digit 

A 



Boolean Constants 



Boolean const 



true 
false 



Character Constants 



char const 



char string 



Status Constants 



status const 



status const string 



" char string " 

char string ip ) 
) 

ip represents any keypunch character. 

S " v status const string v " 
ident 
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Real Constants 



real const 

integer part 
fraction part 

exponent part 

ITEMS 

ITEM Declaration 

item dec 

item descr list 
item descr 



integer part 


dec integer 
dec integer 



fraction part 





exponent part 




+ v 
v 



dec integer 



item a item descr list v ; 

J item descr 

J item descr list v , v item descr 

(a type ( 

item name < — - 1 " — > 



\* \ 



v item preset 



type 



U = 
I 

R = 

B = 

S = 

c - 

length 



u 








I 








R 








B 








C 


V 


( v 


length v ) 


S 


V 


: • 


status list name 



unsigned integer type 

integer type 

real type 

Boolean type 

status type 

character type length is a size subfield in characters or bytes 

:= integer const 
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Item Presets 

Optionally, the item may be assigned an initial value: 

!+ v 
- y V const 

STATUS DECLARATIONS 
Specification 

status dec : = status a status list name a status name list v ; 

. . ,. , ( status value ) 

status nam e list : = < \ 

I status name list y , y status value ( 

status value := i status const string ) 

" \ ' j 

Status Function 

status func := status list name " y status const string y " 
ARRAYS 
Array Declarations 

array dec := array j - array name U array descr y ; y item part 

arrav descr •- ) [ - arra y bounds list y ] | y j layout j v j entry size j 

*'" I { i ( I I 

array bounds list := 1 oun pair / 
/ array bounds list y , y bound pair ) 

, , ( low bound v : y ) 

bound pair := J - I high bound 

low bound := 1 - ^ > integer const 
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high bound 

layout 
entry size 
Array Item Declarations 

item part 



+ v 



si 



integer const 



: = (v integer const y) 



begin a array item dec list v end 
array item dec 



array item dec list 



array item dec 



array item descr list : = 



{ array item dec ) 

array item dec list v array item dec ( 

item a array item descr list v ; 

array item descr 

array item descr list v , v array item descr 



array item descr := array item name y array item specs y array preset 



array item 
specs 



U 

I 

R 

B 

C 

S y : y status list nam e 






ep_ 

fbit 

size 



integer const 
= integer const 
= integer const 



Array Presets 



array preset 





v value set 
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set sequence :-■ 



value set 



value list 





set sequence value set 

set sequence integer const value set 

[ v value list v ] I 

[ v set sequence v ] ( 

value 

integer const v ( v value list v ) 



value list v 



v value 



value : = 

Array References: Subscripts 

array reference 
subscriptor 

subscript list 

subscript 




:= array item name v subscriptor 
;= [ v subscript list v ] 

{ subscript 
subscript list v , v subscript 

= arith exp 



Based Arrays and the P-Function 



based dec 



: = based a 



array dec 

begin a array dec list v end 



array dec 

array dec list v array dec 



array dec list : = 

P func := P < v based array name v > 
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FUNCTIONS 
Function Calls 



func call 



func name 

bead func 
loc func 
p func 
abs func 



( arguments 



arguments 
actual par list 



( v actual par list v ) 

) actual par 

) actual par list v , v actual par 



Bead Function 



bead func 



data 



( B ) ( 

< _ > < v arith exp v \ , 

I C ) I 

{ item name ) 

array reference ( 



V arith exp v \ > v data 

) 



Intrinsic LOC Function 



loc func := loc v ( v 



item name 
array reference 
proc name 
func name 
switch name 
label name 

array name 
p func 



1 ) 



v subscriptor 




Intrinsic ABS Function 



abs func := abs v ( v arith exp v ) 
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VALUE ASSIGNMENT 



sink 



func name ( — 



lv - 



replacement statement : = 

exchange statement := sink v = = v sink v ; 



v source v ; 



sink 



source 

FLOW OF CONTROL 
Label Declaration 

label dec 



labeled statement 



SWITCH Declaration 



item name 
array reference 
p func ( 

bead func i 

( arith exp ) 
J Boolean exp ( 



= label name : 



n . , , v statement ( 
label dec < — / 

1 j 



switch dec 



switch specs 



switch list 



switch point 



switch a switch name v switch specs v ; 
/ switch list 



l 



v status list name v switch order 



/ switch point 

[ switch list v , v switch point 



label name 




switch order 



order pair \ 

switch order v , v order pair / 
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order pair 



= label name v : v status const string 



GOTO Statement 



goto statement 



goto A 



label name j 

switch name v [ v arith exp v u — 



IF Statement 

if statement 

if clause 
else part 



if clause v statement < e par 

{0 

if v Boolean exp v then 
else v statement 



FOR Statement 



for statement 



for clause 



initial value 
step part 
until part 
while part 

TEST Statement 



= for clause v statement 

= for a item name v = v loop control v do 



loop control : = initial value 



v step part 
v while part 



- arith 



exp 



step v arith exp 
until v arith exp 
while v Boolean exp 



( v while part \ 
< v until part > 



test statement : = test 



a item name ( v 

" ( 



PROCEDURES 

Procedure Call Statement 

proc call statement 



:= proc name 



) v arguments 
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RETURN Statement 



return statement := return v 



STOP STATEMENT 



stop statement := stop v ; 



SUBPROGRAM DECLARATIONS 



subprogram dec 



proc dec ) 
func dec ( 



proc dec 
func dec 



:= proc dec clause v dec list v statement 
;= func dec clause v dec list v statement 



proc dec clause := proc /\ proc name 



j v ( v formal par list v ) ( 



\* 



r- 



formal par list 



func dec clause 



) formal par 

1 formal par list v , v formal par 



func a func name . 



declaration 



dec list 



v ( v formal par list v ) >J X type] 

I* km { 



dec list v declaration 




LABELS AND PARAMETERS 
Formal Label Declarations 

formal label dec 

label name list 



label a label name list v ; 

label name 

label name list v , v label name 
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Formal Parameters 

formal based dec 
formal item dec 
formal array dec 
formal proc dec 
formal func dec 

value par 



formal par 



Actual Parameters 



actual par : = 



ENTRIES 



based dec 



item dec 



array dec 

fprc a formal proc name v ; 

func a formal func name 1 -r **— \ v ; 

( y formal item name y ) 

formal based name 
formal item name 



formal array name 
formal proc name 
formal func name 



label name 
value par 



item name 
array name 

proc name 
func name 
label name 
arith exp 
Boolean exp 
p func 



ly subscriptor ' 

< ,. i 



, . , ( proc dec clause 

entry dec := entry a J 7 ; : 

* — j func dec clause 
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COMMON STATEMENT 



common dec 



data dec list 



) a common name 
common < ^ 



data dec 

data dec list v data dec 



!data dec 

begin v data dec list v end 



data dec 



item dec I 
array dec ! 



EXTERNALS 

XREF (External Reference) Declarations 



xref dec 



xdec part 



xdec list 



xref a xdec part 

\ begin a xdec list v end ( 
| xdec ( 

j xdec ) 

) xdec list v xdec ( 



xdec 



item dec 
array dec 
proc heading 
fane heading 
formal label dec 
switch dec 



formal switch dec 
based dec 



formal label dec 



label name list 



formal switch dec 



: = label A label name list v ; 

p _ j label name 

j label name list V , V label name 

switch A switch name list V ; 
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switch name list 
proc heading 
func heading 



switch name 



I switch name list V , V switch name 
: = proc a proc name v ; 



func a func name 



a type 




XDEF (External Definition) Declarations 

xdef dec : = xdef a xdec part 



PROGRAMS 

Program Structure 

program 

program head 

prgm dec 
Compound Statements 



compound statement 



program head 
subprogram dec 



v term 



prgm dec 

program head v declaration 

p rogram head v statement 

:= prgm a program name •; 



compound head V end 
compound head v spend 



compound head 



begin 

spbegin 

compound head V statement 

compound head v declaration 



CONTROL Statement 



control statement 



conditional phrase 



condition params 



control A control word V ; 
control A conditional phrase y ; 
control _A attribute V_ 

condition word A condition params 

! constant ) 

constant V , V constant ( 
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condition word 



ifeq 
ifiie 
ifls 
iflq 



control word 



eject 

list 

nolist 

objlst 

pack 

preset 

fl_ 

traceback 
ftncall 
fastloop 
slowloop 



attribute 



level A lev list 
inert A var list 
reactive A var list 



disjoint A var list 
overlap A_ var list 
weak A weak list 



lev list 



! lev descr ) 

lev list v, V lev descr J 



lev descr 



common name 
based array name 





var list 



var descr 

var list v , V var descr 
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var descr 



weak list 



weak descr 



array name 
based array game 
item name 




weak descr 
weak list v 



v weak descr 



array name 
based array name 
function name 
item name 
label name 



proc name 
switch name 



I 



ifeq 
ifne 
ifls 
iflq 

i|ga_ 

ifgr 

eject 

list 

nolist 

objlst 

pack 

preset 

fi_ 

traceback 
ftncall 
fastloop 
slowloop 

level 
inert 



= mark 

= mark 

= mark 

= mark 



mark 
mark 



mark 
mark 



mark 



mark 

mark 

mark 

mark 
mark 



mark 



= mark 



mark 



mark 



mark 



mark 



J IFEQ 

J IFNE 

J IFLS 

J IFLQ 

J IFGQ 

J IFGR 



J FI 

J ENDIF 



L 
L 
L 
L 
L 
L 

L 

L 

L 

L 
L 



J. EJECT 

J LIST 

J NOLIST 

J OBJLST 

J PACK 

J PRESET |_ 
L 

L 

J TRACEBACK L 

J FTNCALL L 

_J FASTLOOP L 

J SLOWLOOP L 

J LEVEL<2> L 

J INERT L 



mark 
mark 
mark 
mark 
mark 



mark 



mark 
mark 

mark 

mark 

mark 

mark 

mark 
mark 



mark 



mark 



mark 



mark 



mark 



mark 
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reactive 



disjoint 
overlap 



weak 



J mark 
_| mark 



= _J mark 
= _J mark 



declaration 



REACTIVE L mark 
DISJOINT L. mark 



OVERLAP L mark 



WEAK 

array dec 
based dec 
common dec 
def dec 
entry dec 
func dec 
item dec 
label dec 
proc dec 
status dec 
switch dec 
xdef dec 
xref dec 

formal array dec 
formal based dec 
formal func dec 
formal item dec 
formal label dec 
formal proc dec 



I mark 



statement 



compound statement 
exchange statement 
for statement 
goto statement 
if statement 
labeled statement 
proc call statement 
replacement statement 
return statement 
stop statement 
test statement 
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EXECUTION-TIME OUTPUT 



SYMPL contains four procedures that are links to the 
FORTRAN execution-time PRINT routines- Linkage is 
the SYMPL library SYMIO. 



To use these routines, a FORTRAN main program must 
call the SYMPL program. The PROGRAM statement of 
the main program must name the file used for output. 



Within the SYMPL program, the procedures PRINT, 
PRINTFL, LIST, and ENDL must be declared as external 
references through the XREF statement. These 
procedures can also be declared and referenced by the 
names PRINT$, PRINTFL$, LIST$, and ENDL$ if 
necessary to avoid conflicts with programmer supplied 
procedures. 



PRINT and PRINTFL are used to specify the format of 
items to be printed, using the specification of the 
FORMAT statement of FORTRAN. (PRINT differs from 
PRINTFL only in that PRINT is used to write to the file 
OUTPUT, while PRINTFL can be used to write to a file 
with a different logical file name.) The variables or 
arrays that would be presented in a WRITE or PRINT 
statement in FORTRAN are specified individually in 
SYMPL as LIST statement parameters. ENDL, which has 
no analog in FORTRAN, must terminate each output 
sequence begun by PRINT or PRINTFL. 



Any errors in the format specification or output list are 
detected during execution by the FORTRAN routines. 
Any error messages generated are in the FORTRAN 
reference manual. 



PROCEDURE PRINT 

PRINT is used to format information to be written to the 
file OUTPUT. It initiates an output sequence. The call to 
procedure PRINT is: 



PROCEDURE PRINTFL 

PRINTFL is used to format information to be written to a 
file with a logical file name other than OUTPUT. It 
initiates an output sequence that must be terminated by 
ENDL. The call to procedure PRINTFL is: 

PRINTFL (format string, file); 



format 
string 



file 



Literal duplicating the specifications of 
a FORTRAN format specification, 
including the parentheses of the 
FORTRAN specification. Hollerith 
constants, variables, array, carriage 
control, spacing, or any other legal 
FORTRAN format specification can be 
included in the literal string. 

File on which the information is to be 
written, expressed in terms of the file 
information table (FIT) for the file as 
shown in example 2 at the end of this 
appendix. 



PROCEDURE LIST 

LIST is used to specify an item or array to be printed. It 
must be preceded by a PRINT or PRINTFL procedure call 
and must be followed by an ENDL call. Any number of 
LIST calls can appear between PRINT and ENDL. Only 
one item or array can be specified in a single LIST call. A 
one-to-one correspondence should exist between the 
format specification in the preceding PRINT or PRINTFL 
call and the order in which items or arrays are named in 
following LIST calls. The call to procedure LIST is: 

LIST (argument); 

argument Item expression subscripted array item 
or similar entity to be output. 



PRINT (format string); 



format 
string 



Character string duplicating the 
specifications of a FORTRAN format 
specification, including the parentheses 
of the FORTRAN specification. 
Hollerith constants, variables, array, 
carriage control, spacing, or any other 
legal FORTRAN format specification 
can be included in the literal string. 



PROCEDURE ENDL 

ENDL terminates an output sequence begun by PRINT or 
PRINTFL. It must appear after the last LIST call for a 
given sequence; or, if no LIST calls exist in the sequence, 
ENDL must appear after the PRINT or PRINTFL call. 

The call to procedure ENDL is: 

ENDL; 
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EXAMPLES 

1. Print VALUE OF I=nnn where nnn is the value of I in 
integer format. Information is to appear on a new 
line on the file OUTPUT, then the file is to be 
positioned to the next line: 



XREF PROC PRINT; 

XREF PROC LIST; 

XREF PROC ENDL; 

PRINT ("(1X,*VALUE OF I=*,I3,/)"); 

LIST (I); 

ENDL; 



Accompanied by the COMPASS statements: 

TAPE3$ VFD 60/=XTAPE3s 
ENTRY TAPE3$ 

Where TAPE3= is the FORTRAN convention for 
the name of FIT for TAPE3. 

3. Output an array. 

XREF PROC PRINT; 
XREF PROC LIST; 
XREF PROC ENDL; 



The SYMPL code is equivalent to the FOTRAN statements: 

PRINT 99,1 

99 FORMAT(lX,*VALUE OF I=*,I3,/) 



Print THIS IS TAPE3 on file TAPE3. Assume that the 
FORTRAN main program contains PROGRAM FT 
(OUTPUT, TAPE3): 



XREF PROC PRINTFL; 

XREF PROC ENDL$; 

BASED ARRAY B; ITEM BB(D,42,18); 

XREF ITEM TAPE3$; 

P<B>=LOC(TAPE3$); 

PRINTFL("(*THIS IS TAPE3*)",B) 

ENDL$; 



CNTR=LOC(ADDR); 

PRINT("(lX,O6/4O30)"); 

ITEM I; 

FOR 1=0 STEP 4 UNTIL N DO 

BEGIN 

LIST(CNTR); 

ITEM K; 

FOR K=0 STEP 1 UNTIL 3 DO 
LIST(DITM[K+1]); 

CNTR=CNTR+4; 

END 
ENDL; 

This is equivalent in FORTRAN to: 

CNTR=LOCF(ADDR) 

M=N-1 

DO 1 I=1,M,4 

PRINT 100,CNTR,(DITM(K+I-2),K=1,3) 
1 CNTR=CNTR+4 
100 FORMA TQX.O6/4O30) 
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CYBER INTERACTIVE DEBUG INTERFACE 



When a SYMPL program is compiled in debug mode, the 
compiler generates code in such a way that the program 
can be executed through CYBER Interactive Debug (CID). 
A program is compiled in debug mode when either of the 
following is true: 

• The DB parameter is present on the SYMPL control 
statement. 



The control statement DEBUG, ON has been exe- 
cuted, putting the job in debug mode, and the SYMPL 
control statement does not include the option DB=D. 



In order to make the CID interface possible, extra 
information is added to the object code by the compiler. 
This information includes: 

• Symbol tables, which include entries for all the 
scalars, arrays, procedures, functions, labels, and 
switches in the program. No entries are made for 
array items. 

• Line number information, to enable CID to access 
individual statements in the program. A line number 
is inserted in the object code before the executable 
code for each statement, and a line number loader 
table is provided. If more than one statement 
appears on a line, all the statements have the same 
line number. 



CID treats SYMPL object code like FORTRAN object 
code. The features described in the CID reference manual 
as FORTRAN features are therefore also available to the 
SYMPL user. Use of SYMPL with CID is subject to the 
following restrictions: 

• In an overlay structured program, the procedure 
DBUG.OM must be called from a COMPASS routine 
with the SYMPL calling sequence whenever a new 
overlay is loaded. 

A call to the procedure is also required if an already 
loaded overlay is being reentered and an overlay trap 
is to be in effect. The procedure is called with a 
single parameter, which is zero if the overlay in 
question has just been loaded, and one if an already 
loaded overlay is being reentered. 

• CID truncates all identifiers to seven characters. 

• Identifiers are not qualified. Only the outermost 
declaration of an identifier is recognized by CID; 
redeclaration at an inner level is ignored. 

• All SYMPL entities referenced by CID have a type 
assigned to them. This type is the default type for 
the DISPLAY command and the PRINT command. 
The correspondence established is that SYMPL 
scalars of real type correspond to CID type F 
(floating point) and all other entities correspond to 
CID type O (octal). 



Debug does not support part word or multiword 
arrays. Therefore, only one identifier is used for 
each SYMPL array. This identifier is the array name 
if it has one, otherwise it is the name of the first 
item declared in the array. The identifier used for 
the array is defined to CID as a one word item 
occupying the first word of the array, with an offset 
of zero relative to the beginning of the array. 

Array bounds and subscripts are changed to 
FORTRAN format for referencing through the 
FORTRAN-oniy CID commands. For other CID, 
commands, no subscripts are used. Any dimension for 
which the lower bound equals the upper bound is 
deleted. For example, an array declared in SYMPL 
by the following declaration: 

ARRAY A [1:7,0:0,5:8] 

is referenced in CID as if the declaration were: 

ARRAY A [l:7,5:8] 

If the lower bound equals the upper bound for all the 
dimensions of the array, it is treated by CID like a 
scalar, since it only has one element. 

For a serial array with an entry size greater than one 
word, the bounds are rearranged so that the entry 
size is the leftmost dimension and the declared 
dimensions are moved one to the right. For example, 
if the SYMPL declaration is: 

ARRAY S [l:30] S(2); 
ITEM S0(0), 
Sl(l); 

References to the array in CID are the same as if the 
array declaration were: 

ARRAY S [0:1,1:30]; 

That is, a reference to SO [17] becomes a reference to 
S(0,17) (in CID, parentheses are used instead of 
brackets). 

For a parallel array with an entry size greater than 
one word, the bounds are rearranged so that the entry 
size is the rightmost dimension. For example, if the 
SYMPL declaration is: 

ARRAY P [l:100] P(3); 
ITEM P0(0), 
PKD, 
P2(2); 

References to the array in CID are the same as if the 
array declaration were: 

ARRAY P [1:100,0:2]; 

In CID P0[l] is referenced as P(0,1), PI [32] is 
referenced as P(32,l), and P2[46] is referenced as 
P(46,2). 
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Formal parameters and based arrays must be 
accessed indirectly in CID. The indirect value 
operator ! must be used to obtain the value of these 
entities. 

For example, if the procedure heading is: 

PROC P(X); 
then the CID command: 

DISPLAY X 

displays the address of X, rather than its value. To 
display the value of X, the form: 

DISPLAYIX 

must be used. 



Similary, if a based array is declared by: 



BASED ARRAY B S(3); 
ITEM B0(0), 
Bl(l), 
B2(2); 



then the CID command DISPLAY B displays the value 
of the P function of B, DISPLAY'B displays the value 
of BO, DISPLAY! B + 1 displays the value of Bl, and 
DISPLAYIB + 2 displays the value of B2. 
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CODING CONVENTIONS 



The advantage of using an implementation language for 
system software is lost if the code is hard to read. The 
coding standards listed in this section represent a set of 
conventions that experience has shown results in readable 
code. The standards are divided into the following groups: 

• Rules for layout of individual statements. 

• Rules for format declarations. 

• Rules that pertain to the format and flow of control 
within a whole procedure. 

• Rules for efficient coding. 

• Rules for comments in code. 

• Rules designed to improve the transportability of 
code to other systems. 

The rules in this appendix are recommendations, not 
requirements. 

RULES FOR STATEMENT LAYOUT 

Labels should being in column 1. Labels should appear on 
lines by themselves except for optional comments. 

CONTROL statements which govern global conditions 
should be at the beginning of a compilation unit. 
CONTROL statements which govern local conditions 
should be indented with the code. Blank lines should 
surround all conditionally compiled code blocks. 

Declarations and executable code should appear only in 
columns 7 through 72. 

The standard indentation level is 2 columns. Indentation 
is recommended for IF and FOR sublevels, as well as 
ARRAY and COMMON declarations. 

No more than one statement should appear on one line. 
Statements can be broken across lines to clarify the 
meaning. 

The words BEGIN, END, THEN, ELSE, and DO should all 
appear on lines by themselves. They can have comments 
on the same line. 

An IF/THEN/ELSE sequence should be written: 

IF 

THEN 
BEGIN 

END 

ELSE 
BEGIN 

END 



The Boolean operators of compound conditional 
expressions in IF statements should be indented one level 
more than the IF. Each condition should appear on a line 
by itself. Explicit parentheses should be used when AND 
and OR are used in the same expression. Do not assume 
the precedence used by the SYMPL compiler. Nested 
conditional expressions should be indented the standard 
indentation level to reflect the logical levels. For 
example: 



FRCEQ1 

AND (READAREA GR 

OR READAREA LS LASTAREA) 

AND NOT RECORDING 
THEN 

BEGIN 

END 



A FOR statement should have the UNTIL or WHILE part 
on a separate line, indented to the next indentation level, 
and the DO on a line by itself aligned under the FOR. 
Compound conditions in the WHILE part should be 
indented according to the rules for compound conditions in 
an IF statement. For example: 



FOR 1=1 STEP 1 

WHILE NOT FINISHED 

AND (LINK [I] NQ 

OR MAMA [I] EQ BABY [i+l]) 
DO 

BEGIN 

END 



A properly indented BEGIN/END pair should, surround the 
body of the controlled statement of IF and FOR 
statements even if there is only one controlled statement. 



Second and subsequent lines of statements which overflow 
one line should be indented at least one additional level 
from the level of the original statement. Assignment 
statements which overflow one line should be split into 
two statements. 



Operands and operators should be separated by spaces. 
Left parentheses should be preceded by blanks except for 
intrinsic functions. 



A blank line or an END should follow each unconditional 
transfer - GOTO, RETURN, or TEST. 



The use of blank lines to improve readability is 
encouraged, especially surrounding block comments and 
after an END. 
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DECLARATION CONVENTIONS 

Each symbol being declared should be on a line by itself, 
and should have a comment describing the declaration and 
its use. This includes all items, array items, DEF, XREF, 
and XDEF declarations, and status lists. 

Array item declarations should be enclosed by a properly 
indented BEGIN/END pair and each item definition should 
be preceded by the keyword ITEM and end with a 
semicolon. An attempt should be made to align all parts 
of the declaration neatly. Thirteen spaces are 
recommended for the item name field of declarations 
which occur in common decks. Two digits should be used 
for entry, fbit, and nbit. For example: 



ITEM FIRST 

ITEM SECOND 

ITEM A$LONG$NAME$ 



I (00,00,60) 
B (01,00,01) 
U (01,01,29) 



The declaration of all items should contain all 
specifications needed in explicit form. Each item 
declaration should begin with the keyword ITEM and end 
with a semicolon. Defaults should be avoided. For 
example: 



ITEM NAME 

ITEM I 

ARRAY ANY [BOUNDS] 

BEGIN 

ITEM FIRST 

END 



C(10); 

i; 

P(ENTSIZE); 
1(00,00,60); 



All data structures and definitions, as well as procedure 
and function names, should be as descriptive as possible of 
their use. External names should, be seven or fewer 
characters, including main program names. Item names 
within structures may be formed by concatenating an 
abbreviation of the array name and the field name; for 
example, the items AT$FORWARD and AT$DBPROC in 
the array AREA$TABLE. 

All declarations should appear at the beginning of the 
procedure. All similar items should be grouped together; 
that is, all XREF declarations together, all DEF 
declarations together, and so forth. The following order 
of definitions is suggested: common decks, parameters, 
XDEF, XREF, DEF, status lists, COMMON, items, arrays, 
switches. Alphabetic ordering of items within each group 
is preferred. Array items should be ordered either 
alphabetically or numerically by entry and position within 
the word. 

The keyword XREF and XDEF should be repeated for each 
declaration. The form 

XREF BEGIN . . . (declarations) . . . END 

should not be used. 

Items whose use is strictly local to a procedure, such as 
induction variables or values needed across procedure 
calls, should be declared local to that procedure. All 
variable names should be unigue within a deck. 

CONTROL LIST and CONTROL NOLIST declarations 
should always be matched. A comment describing what is 
not being listed should always appear on the same line as 
the CONTROL NOLIST statement. One standard is to 
place the CONTROL NOLIST as the first line of the 
common deck and the CONTROL LIST as the last card of 



the common deck. CONTROL NOLIST should appear 
after each *CALL statement occurring in the middle of an 
unlisted common deck. 

All declarations that are needed in more than one 
compilation unit should be declared in an Update common 
deck. All code that is needed in more than one place 
should be made into a procedure. 

Constants should never be hard coded. Except for the use 
of -1, or 1, where the meaning is intuitively obvious, 
DEF names or status declarations should be used instead. 
If an item can take on only a few definite values, these 
values and the meaning of each value should be identified 
in a comment. If the values are not externally defined, a 
status list should be used. If a status list defines external 
data it should be clearly documented. If a status list 
cannot be used then the use of DEF names for the discrete 
values should be considered. Special uses of status lists, 
such as assuming contiguous subranges of values, should be 
clearly documented. 

Only symbolic and numeric constants should be used in 
DEF declarations. The use of DEF declarations to 
abbreviate keywords or code is discouraged. 

All left-justified zero-fiiled strings should be declared in 
DEF declarations, and the name should be enclosed in 
dollar signs ($). The suggested format for full word octal 
constants is in 5-digit parcels. For example: 

DEF $LGO$ # O"14071 70000 00000 00000" #; 



GLOBAL CONVENTIONS 

The executable code of a main program should be the last 
code in that program. Nested procedures should be 
ordered alphabetically. There should be no more than one 
level of nesting for procedures or functions. All 
procedure and function definitions should begin in 
column 7 and be preceded by a CONTROL EJECT. The 
BEGIN should also be in column 7 and should appear on 
the first line after the declaration. The Update deck 
name should be the same as the main program. 

Self-modifying code should never be used. 

Label names should be unique within a deck. 

A branch should not be made into the middle of a FOR 
loop. 

TEST should never be used without explicitly stating the 
induction variable it is testing. 

An attempt should be made to keep procedures less than 
two pages long. 

An attempt should be made to avoid splitting code blocks 
across a page boundary. 

Sophisticated use of FOR loops, such as modifying the 
induction variable if it is used in a STEP clause, or 
modifying the STEP or UNTIL clause variables, is 
discouraged. For example: 

FOR 1=1 STEP J 

UNTIL K 

DO 

BEGIN 

END 
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In this example, I, J, and K should not be changed within 
the scope of the loop. If a FOR loop with an UNTIL part 
can be terminated before the UNTIL condition is met, the 
loop should be rewritten with a WHILE and the exit from 
the loop should be caused by a condition in the WHILE 
part. Exit from any FOR loop should be caused by the 
UNTIL part or by a condition for the WHILE part. 

A switch should be used only to imitate a CASE 
statement. All code referenced by the switch should be 
enclosed with a properly indented BEGIN/END pair, and 
the GOTO should precede it. The last label in the block 
should be an exit label. Exit from the switch should be 
through the exit label. Each section of code in the switch 
body should be self-contained; one section should not fall 
through to another section. A jump to another label later 
in the code is permitted. 

GOTO should be used only when no other alternatives 
exist. If GOTO is used, it should be a forward jump, 
unless a backward jump is necessary. Jumps, to the exit 
label of a switch are allowed when imitating a computed 
GOTO statement. 

The use of ENTRY procedures is strongly discouraged. 



EFFICIENT CODING 



Comments which are on the same line as code should start 
in column 36 and end in column 72. If the code extends 
past column 34, two blanks should separate the end of the 
code and the beginning of the comment. If the comment 
is continued to another line, the beginning of the 
continuation comment should start in the same column as 
the original comment and nothing else should appear on 
that line. A space should separate the comment delimiter 
from the body of the comment. A block comment is 
preferred to in-line comments that take more than two 
lines. 



All nested procedures should begin with a block comment 
following the BEGIN. The block comment should contain 
a line with the procedure name clearly visible, and should 
be preceded and followed with a comment line of minus 
signs, as shown in Figure G-l. 



# 

# 

# p r o c n a i 
# 

# block comments 
# 

# 



# 
# 
# 
# 
# 
# 
# 



The use of a variable character bead function that might 
cross word boundaries should be avoided. For example: 



c<i,j>char[k] 



Figure G-l. Block Comment Format 

The block comment should contain information describing 
the parameters, input information, output information, 
and a description of important details of the processing. 



where CHAR is longer than 10 characters. 

The use of an associative bit vector should be considered 
in preference to a compound conditional wherever 
feasible. For example, instead of writing: 



A CONTROL EJECT and the block comment for the main 

procedure should precede the first line of executable code 

in the main procedure, which is the last code in the 
compilation unit. 





CLAS 


MAMA 


EQ S"DATA" 


OR 


CLAS 


MAMA 


EQ S"CONS" 


OR 


CLAS 


MAMA 


EQ S'TEMP" 


OR 


CLAS 


'MAMA] 


EQ S"LOOP" 



A preferable form is: 

IF CKLOAD [CLAS [MAMA]] 

#DATA,CONS,TEMP OR LOOP// 
THEN 



A block of code should be preceded by a block comment 
that describes the overall action of that block. A block is 
any group of code that performs an identifiable 
macroscopic function. 



At the programmer's discretion, a comment can appear on 
the same line as any BEGIN or END. The comment can 
begin two or more spaces after the keyword BEGIN or 
END and should describe the action of that block in one or 
two words. In this one case, the end-of-comment 
delimiter // should directly follow the body of the 
comment, and not appear in column 72. For example: 



DOCUMENTATION 

The closing comment delimiter should always appear in 
column 72 of every line containing any comments. 

Block comments should have the comment delimiters in 
columns 1 and 72 for every line in the comment. Blank 
lines should precede and follow the comment to separate 
it from the surrounding code. The comment body should 
be indented to the current indentation level. 



IF REGMEM[l] EQ REGI 
THEN 

BEGIN // MATCH // 

END # MATCH # 



A comment is recommended for the BEGIN and END of 
any FOR or IF body that is over one page in length. A 
comment with the name of the procedure is recommended 
for the END of the procedure. 
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TRANSPORTABLE CODE 

All system-dependent characteristics should be isolated 
or easy identification and eventual change. The 
ollowing characteristics are system-dependent: 

word size 

address space size 

character size 

system functions 

input/ output interfaces 

All system-dependent DEF declarations should be grouped 
in one Update common deck. 

DEF declarations should be used for system-dependent 
declarations and code. 



Good comments should accompany all system-dependent 
code. For example, the use of RAO to terminate 
parameter lists is system-dependent. 

External interfaces should be designed to be as general as 
possible. Users of system functions and external 
input/output routines should be isolated into separate 
routines, logically separated from the main code. 

Bit functions should be used for numeric items, character 
functions for character strings. Type should not be mixed 
in bit and byte functions. Implicit conversions should not 
be depended on. 

Character strings should be used for character 
information, and octal type for octal information. For 
example, do not use colons or semicolons for masks, and 
do not use octal representation for character items. 

System-independent arrays should be used whenever 
possible. 
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PROGRAMMING SUGGESTIONS 



H 



COMPILER 

Space required for compilation is proportional to the 
number of symbols in the source program. Approximately 
five words of memory are dedicated to each name in the 
program, in the form of a symbol table entry. 



Time required for compilation is proportional to the size 
of the object program, in terms of the amount of syntax 
to be scanned. Although data declarations do not 
generate code, they use significant amounts of compiler 
time and field length, especially data presets. 



ARRAYS 

Parallel arrays are accessed more efficiently than serial 
arrays when an array entry exceeds one word. For arrays 
with one- word entries, no difference in object code speed 
or space is apparent. Parallel arrays, rather than serial 
arrays, should be used when possible. Fixed arrays are 
accessed more efficiently than based arrays, which 
require a level of indirectness to access an entry. 
Whenever possible, fixed arrays should be used. 



COST OF ACCESSING DATA TYPES 



Compilation time can be further reduced by judicious use 
of the compiler options such as suppression of object code 
and cross-reference listings. 



DEF declarations can increase readability of SYMPL 
source programs and facilitate changes to them. 
However, DEF declarations increase compilation time and 
DEF expansions increase field length. 



If an array item is a full 60-bit word, access does not 
depend upon its type. For items which are not 60-bit 
words, however, type and bit position assignment affect 
the code required to access them, as follows: 

• Signed integers are accessed more efficiently than 
unsigned integers. If the item is 18 bits long, the SXi 
instruction is used to access signed integers. Signed 
integer items are accessed more efficiently if they 
are the leftmost bits of a word. 



OBJECT CODE 

Object code can be improved by attention to the following 
areas: 



Subscripts 



Arrays 



Costs of accessing data types 



FOR loops 



Data conversions 



Subprograms 



FUNC subprograms 



SUBSCRIPTS 

Code produced by referencing subscripted variables can be 
affected by the means of expressing the subscript. For 
example, an integer constant can be partially evaluated at 
compile time so that one instruction is required to access 
an array item (given the item is a full word); but a scalar 
integer variable requires four instructions to access the 
item. Thus, a reference to A 3 requires one instruction; 
but A I , where 1=3, requires four instructions to retrieve 
the same item. 



• Unsigned integer items are accessed more efficiently 
if they occupy the rightmost bits of a word rather 
than the middle or leftmost bits. 

• Boolean items are most efficiently accessed by 
allocating the whole word or the leftmost bit of a 
word rather than one bit elsewhere. Otherwise, they 
are accessed as unsigned integers are accessed. 



FOR LOOPS 

The break-even point in code generated for in-line and 
FOR loop code is three or four iterations. Of the 
following sequences, the second generates fewer 
instructions and runs faster: 



FOR 1=0 STEP 1 UNTIL 2 DO 
PWORD[l] = 0; 



PWORD 





= 0; 


PWORD 


1 


= 0; 


PWORD 


2" 


= 0; 



If four or more items were being set by the above 
sequence, the loop would have required less code but 
required more time. 

In general, the less source code in the FOR statement, the 
faster it will run. Of the following code sequences, the 
second is faster because the loop limit is computed and 
the value stored only once: 

FOR I = STEP 1 UNTIL B/C DO 
PWORD [i] = K**J; 

A = B/C; 
D = K**J; 

FOR I = STEP 1 UNTIL A DO 
PWORD[l] = D; 
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One exception is that FOR loop execution time can be 
reduced with more source code as in the following 
example, where the second sequence would be faster even 
though more code would be generated: 

FOR I = STEP 1 UNTIL 89 DO 
P WORD [I] = 0; 

FOR I = STEP 3 UNTIL 89 DO 
BEGIN 

PWORDUJ = 0; 

PWORdD+1] = 0; 

PWORD[l+2j = 0; 
END 



DATA CONVERSION 

Integer-to-character conversion is byte-oriented; the 
character-to-integer conversion is word-oriented. When 
an integer item is converted to character mode, the 
rightmost 6-bit byte is left-justified and blank-filled in 
the character field; yet, character-to-integer conversion 
is performed by right-justifying the right end of the last 
word of the character item and zero-filling it on the left. 
Character field definitions can cross word boundaries. 
Arithmetic operations with character data, including 
masking, make the code system-dependent because it 
reduces the string to one word. 

The conversions can be circumvented by the use of bit 
bead functions. For example, 

B<0,60>FLTINGPT=INTEGER; would cause the integer to 
be stored in the floating point item without conversion. 
B<0,60>CHARACTER=INTEGER also would cause the full 
word to be stored in CHARACTER, not just the low-order 
six bits. 



SUBPROGRAMS 

Formal parameters should be called by value whenever 
possible. If a procedure must reference its formal 
reference parameter more than once, a local variable 
should be declared, set to the value of the formal 
parameter, and subsequently referenced instead of the 
formal parameter. Reference parameters are addressed 
indirectly in the generated code; this level of indirectness 



can be overcome by evaluating the parameter once and 
making it local to the procedure by storing the 
parameter's value in a local variable. 



FUNC SUBPROGRAMS 

When the subprogram must return a result, a function 
should be used rather than a procedure that returns a 
value. Use of the function saves two instructions. 

For example, a routine is needed to convert from integer 
to display code, with the result to be stored in one of 
three arrays, depending upon the section of code where 
the call originates. If a function is used (as in 
ARRAYWORdTi] = FUNCTION [INT] rather than a 
procedure (as n PROCED (INT); ARRAYWORD0 = INT), 
two SAi k instructions are saved per call. The saving is 
realized because functions return their result in register 
X6 rather than in a memory location. 



CODING HINTS 

Based array references are candidates for scratch variable 
storage if referenced more than once in a sequence of 
source code, since based array references are indirect. 

When storing into many items of the same data structure 
(array) clustered together, those that refer to the same 
word of storage should be described in the same order in 
which they occur. 



POSSIBLE OPTIMIZATION 

The SYMPL language permits the compiler to move code 
to achieve optimization. SYMPL 1.2 and later versions do 
not perform global flow analysis. They do, however, 
perform many local optimizations including: 
compile-time computation of constant expressions, 
conversion of many multiplication operations to 
shift-and-add operations, and elimination of many 
redundant loads and stores. Therefore, if the program has 
any OVERLAP or REACTIVE variables, they should be 
declared to assure correct compilation on SYMPL 1.2 and 
later versions of the compiler. See section 5 for a more 
complete discussion of variable attributes. 



H-2 



60496400 E 



INDEX 



ABS function 4-5, D-16 
Actual parameters 

Call-by-value 4-3 

DEF 5-2, 5-3 

Function 4-4 

Procedure 4-1 

Syntax D-20 
Arithmetic 

Expressions 1-6, D-9 

Operators 1-5 
Array 

ARRAY declaration 2-3, D-13 

BASED ARRAY declaration 2-11 

Bead function 2-8 

Definition 2-1 

ITEM in array 2-4 

Preset 2-8 

Reactive 5-8 

References 2-8 

Subscripts 2-8 
Attributes 

Data items 2-1 

Optimization 5-6 



B function 4-5 
BASED ARRAY 

BASED declaration 2-11, D-15 

Level 5-6 

P function 4-6 
Bead function 

Array item 2-8 

Bit 4-5, D-16 

Character 4-5, D-16 

Exchange statement 3-2 

Replacement statement 3-2 
Blank or space 1-1 
Boolean 

Constant 1-2, D-ll 

Data type 2-1 

Expressions 1-6, D-9 

Expression use 

FOR statement 3-3 
I IF statement 3-6 

ITEM declaration 2-1 

Operators 1-5 
Brackets 

Array dimension 2-3 

DEF parameter 5-3 

Presetting 2-8 



C function 4-5 

Call 

By-value parameter 4-2 
Compiler 6-1 
Print routines E-l 
Procedure 4-1 

Character 

Comparison IFxx 5-4 
Constant 1-2, D-ll 
conversion 1-6 
Data type 2-1 
ITEM declaration 2-1 



Character set 

CDC A-l 

SYMPL 1-1, D-3 
Code 

Efficient G-3 

Transportable G-4 
Coding Conventions G-l 
Comment 

Conditional compilation 5-4 

Conventions G-3 

DEF 5-4 

Delimiter 1-1, 1-2, D-5 
Common 

COMMON declaration 4-7, D-21 

Level 5-6 

Preset 5-5 
Compilation 

Compiler call 6-1 

Conditional 5-4 

Debugging 5-1 

SYMPL 6-1 
Constant 1-2, D-10 
CONTROL statement 5-4, D-22 
Controlled statement 3-3 
Conversion 

Expressions 1-6 

FOR statement expressions 3-3 

ITEM declaration 2-1 

Replacement statement 3-2 



Debugging 

$BEGIN/$END 5-1, 6-1 

Conditional compile 5-4 

TRACEBACK 5-8 
Deck structure 6-4 
Declarations 

Array 2-3 

Conventions G-2 

Label 3-1 

Scalar 2-1 

Scope of 4-1 

STATUS 2-2 

SWITCH 2-2 
DEF 

Comment 5-4 

Conditional compilation 5-4 

Declaration 5-2, D-8 

References 5-2, D-9 
Delimiters 1-1 
Diagnostics B-l 
Dimension 

Array 2-3 

Preset array 2-8 
DISJOINT 5-6 
Documentation G-3 



ECS 5-6 
Entry 

Array 2-3 

Multiword array 2^9 
Entry point 

Alternate 4-7 

ENTRY declaration 4-7, D-20 

XDEF declaration 4-7 



60496400 F 



Index-1 



Error messages B-l 
Exchange statement 3-2, D-17 
Expressions 

Arithmetic 1-6 

Boolean 1-6 
External 

References XREF 4-8 

Subprograms 4-1 



Macro (see DEF) 
Main program 4-1 
Maps 6-5 
Marks 1-1 
Masking 1-6 
Memory residence 
Metalanguage D-l 
Module 6-1 



5-6 



Fastloop 

FASTLOOP 5-5 

Flowchart 3-3 
Floating-point (see Real) 
FOR statement 3-3, 5-5, D-18 
Formal parameter 

DEF 5-2 

Procedure 4-2 

Syntax D-20 
FORTRAN 

Calling sequence 5-5, 6-2 

FTNCALL 5-5 

Print routines E-l 

TRACEBACK 5-8 
FPRC 4-1 
Function 

ABS 4-5 

Bead 4-5 

FUNIC declaration 4-4 

LOC 4-6 

P 4-6 

Status 1-4 



GOTO statement 3-5, D-18 



Identifier 1-2 

F statement 3-6, D-18 

Fxx test 5-4 

INERT 5-6 

Input/output FORTRAN PRINT E-l 

Integer 

Constant 1-2, D-10 
Data type 2-1 
ITEM declaration 2-1 

ITEM 

Array declaration 2-4 
ITEM declaration 2-1, D-12 
Scalar declaration 2-1 



Label 

GOTO statement 3-5 

LABEL declaration 3-1, D-19 

Name 3-1, D-17 

Switches 2-2 
LCM 5-6 
LEVEL 5-6 
Listing 

Control 

Compiler call 6-2 
CONTROL statement 5-4 

Maps 6-5 
LOC function 4-6, D-16 
Logical expressions 1-7 
Loop (see Fastloop, Slowloop) 



Object code list 

CONTROL statement 5-4 

O parameter 6-3 
Operators 1-4 
Optimization 5-6 
OVERLAP 5-6, 5-7 
OVERLAY 6-1 



P function 4-6, D-15 
Pack switch 5-5, 6-1 
Parallel array 

Declaration 2-6, 2-7 

Storage 2-6, 2-8 
Pointer variable 

BASED ARRAY 2-11 

LEVEL 5-6 

P function 4-6, D-15 
Preset 

Array 2-8 

Common 4-7, 6-3 

Scalar 2-1 
PRINT/PRINTFL E-l 
Procedures 

Call D-18 

Declaration 4-1 

FPRC 4-1 

PROC 4-2 



REACTIVE 5-6 

Real 

Constant 1-4, D-12 

Data type 2-1 

ITEM declaration 2-1 

Relational expression 1-7 

Replacement statement 3-2, D-17 

Reserved words 1-3 

RETURN statement 3-6, D-19 



Scalar 2-1 

SCM 5-6 

Scope of identifiers 

Declarations 4-1 

Label 3-1 
Serial array 

Declaration 2-6, 2-7 

Storage 2-6, 2-7 
Slowloop 

Flowchart 3-3 

SLOWLOOP 5-5 
Statement 

Compiler-directing 5-1 

Exchange executable 3-2 

Replacement 3-2 

Rules for layout G-l 

Within IF 3-6 



Index-2 



60496400 F 



Status 

Constant 1-4, D-ll 

Data type 2-1 

Function 1-4 

ITEM declaration 2-1 

STATUS declaration 2-2, D-13 
STOP statement 3-6, D-19 
Storage format 

Arrays 2-3 

Calculation for arrays 2-10 

Replacement statement 3-2 

Scalars 2-1 

Overlapped 5-7 

Reactive 5-8 

XDEF 4-7 
Subprogram 

Communication 4-7 

Compilation 6-1 

Declaration 4-1, D-19 
Switch 

GOTO statement 3-5 

Packing 5-5, 6-1 



Range check 6-1 

Status switch 2-2 

SWITCH declaration 2-2, D-17 
SYMPLcall 6-1 
Syntax 

Check 6-3 

Metalanguage D-l 

Used in text 1-1 



TERM statement 4-1, 5-9, 6-1 
TEST statement 3-5, D-18 
TRACEBACK 5-8 
Transportable code G-4 
Truth tables 1-5 



XDEF declaration 
XREF declaration 



4-7, D-22 
4-8, D-21 



$BEGIN/$END 5-1 



60496400 E 



Index-3 



GONTRpLDATA 
CORPORATION 
COMMENT SHEET 



MANUAL TITLE: SYMPL Version 1 Reference Manual 

PUBLICATION NO.: 60496400 REVISION: 

NAME: 



COMPANY: 



STREET ADDRESS: 



CITY: STATE: ZIP CODE: 



This form is not intended to be used as an order blank. Control Data Corporation welcomes your evaluation of 
this manual. Please indicate any errors, suggested additions or deletions, or general comments below (please 
include page number references). 



0\ 

Z ] 

Oi 

—I 1 

< I 

i— ! 

Z> 



< 

in i 
z> j 
Z j 

a! 



> i 



NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A. 
<i 

< I FOLD ON DOTTED LINES 



OLD 



FOLD 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



FIRST CLASS 



BUSINESS REPLY MAIL 

PERMIT NO. 8241 MINNEAPOLIS, MINN. 



POSTAGE WILL BE PAID BY 

CONTROL DATA CORPORATION 

Publications and Graphics Division 
215 Moffett Park Drive 
Sunnyvale, California 94086 




OLD 



FOLD 



TAPE 



TAPE 



